Я думаю что тут текстовый способ передачи информации
Var x.k:integer;
BEGIN
k:=0;
for x:=100 to 999 do
if x mod 5 = 0 then begin writeln(x);k:=k+1; end;
writeln('k=',k);
end.
Var k, n, i: integer;
sum: real;
begin
readln(n, k);
sum:=16;
for i:=1 to n-1 do
sum:=sum+k/i*3;
writeln(sum);
end.
- текст
- зображення
- смартарт
- анімації
- фігури
Где высказывания? Напиши их, как отвечать-то?