напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
Ответ дал: Гость
const
a: array[1..6]of longint=(7,4,10,6,5,3);
var
i: longint;
begin
for i: =1 to 6 do write(9.8*a[i]*1200,' ');
writeln;
end.
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Популярные вопросы