1. некоторая сумма денег выражена в копейках, например 317, 5050, 100. записать данную сумму в гривнах и копейках, т. е. в виде: 3 грн. 17 коп., 50 грн. 50 коп, 1 грн. 00 коп. (количество копеек всегда выражается двумя цифрами)

Var s,g,k: integer; begin writeln('введите сумму (в копейках): '); readln(s); g: =s div 100; k: =s mod 100; write(g,' грн. '); if k=0    then writeln('00 коп.')   else if k< 10 then writeln('0',k,' коп')               else writeln(k,' коп.'); end. пример: введите сумму (в копейках): 5205 52 грн. 05 коп

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.

 

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.