Uses crt;
var i,k,kol,s:integer;
begin
kol:=0;
s:=0;
read(k);
for i:=1 to 50 do
if i mod 10=k then
begin
inc(kol);
s:=s+i;
end;
writeln(s);
writeln(kol);
end.
В одном байте восемь бит- следовательно в 128 Кбайтах будет 128*8=1024 бита
begin
var q := ReadSeqInteger(3);
Write(q.Sorted.Take(2).Aggregate(0, (s, x)-> s + x * x).Sqrt:0:9);
end.
//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.