var a,b,c,d,e: integer;
begin
write('Введите a=');
read(a);
b:=10;
c:= a+b;
writeln('Сумма равна ',c);
e:=0;
while c>0 do
begin
d:=c mod 10;
c:=c div 10;
e:=e+1;
end;
writeln('В числе ', e, ' цифр(-a/-ы)');
end.
В) сохранил файл на рабочий стол. P.S. Это же необязательно даже не нужно
Program aaa;
var
a,b,c,i,z:integer;
begin
randomize;
z:=0;
for i:=1 to 10 do begin
a:=random(9)+1;
b:=random(9)+1;
write(a,'*',b,'=');
readln(c);
if(c=a*b) then inc(z);
end;
writeln('Из 10 заданий вы выполнили ',z,' заданий!');
end.
Program name;
const n=5;
var
m:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=m{1};
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln(#13#10,'Результат произведения элементов массива: ',t);
readln;
<span>end. </span>
Можно перемещать, копировать, переименовать, удалять.