//Pascal
var a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln(s);
end.
Var n, i: Integer;
sum: Double;
a: Array[1..1000] of Double;
begin
ReadLn(n);
for i:=1 to n do Read(a[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+a[i];
a[8]:=sum;
WriteLn('--');
for i:=1 to n do Write(a[i]:0:3, ', ');
end.
Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
Книга, т. к. это носитель информации
А) if (x >= m) and (x <= n) then written('True') else Writeln('False');
b) if (c*c = a*a + b*b) then written('True') else writeln('False');
в)if (x > 0) and (y > 0) then written('True') else writeln('False');
––––––––––––––––––––––––––––––––––––––
Кнопка 'спасибо' чуть ниже