Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
program raf105;
var abc,a,sum,count: integer;
begin
write('Введите число: ');
readln(abc);
count:= -1;
repeat
a:= abc mod 10;
sum:= sum+a;
count:= count+1;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
writeln('Количество цифр: ',count);
end.
Первое третье и последние
Ответ:
program abc;
var a:integer;
begin
writeLn('Введите год');
write('=> ');
readLn(a);
if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')
end.
Объяснение:
Можно такими координатами: 0.0 4.8 8.0 0.0
итого 4 координаты