Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, s : integer;
begin
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
end.
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
var kol,a,b,c: longint;
read(a,b,c);
if a< 0 then kol: =kol+1;
if b< 0 then kol: =kol+1;
if c< 0 then kol: =kol+1;
write(kol);
var a: array [1..9] of real;
s,p: real;
p: =1;
for i: = 1 to 9 do
read(a[i]);
s: = s+a[i];
p: =p*a[i];
writeln("summa=",s);
writeln("srednee arefmeticheskoe=",s/n);
writeln("proizvedenie=",p);
Популярные вопросы