<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
Задача 1 Программа проверена для первых четырех элементов (=16)
var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви
var
i,n,s, k : integer;
begin
s:=0;
readln (n);
for i:= 1 to n do begin
readln (k);
if k mod 10 =0 then s:= s+k;
end;
writeln (s);
end.
1) Фиксированная и плавающая точка (запятая)
2) В двоичной системе счисления.
3) Бит, байт, килобайт, мегабайт, гигобайт и т.д.