Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
стены, ученики, террористы(учителя : d), парты ии т.д.
разрушить : d,
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
логика, морзе, вектор, шина, дек, рунет, железо, терно, юзер, каретка, адаптер, браузер, цифра, образ, плата, эталон, сектор(стокер), зерно, утилита, файл, гамма, щелчок, чистка, иконка, ядро, ершов, хаб, набор
а если число
var n,i,p: integer;
s: string;
begin
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
end.
Популярные вопросы