Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
var
s, s_new: string;
i: integer;
begin
read(s);
for i := 1 to length(s) do
s_new := s_new + s[i] + ' ';
writeln(s_new);
end.
var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
Это все целые числа , которые делятся на 15. Таких всего : целая часть от (2015/15)=134 (если число делится на 15, то и его квадрат делится на 15)