Регистрация
sasha60503
11.01.2023 14:17
Информатика
Есть ответ 👍

Информатика 8 класс. Паскаль.

189
359
Посмотреть ответы 1

Ответы на вопрос:

влад2305
влад2305
4,6(60 оценок)
Var   a, c : integer; begin   read (a);   c : = 0;   while a > 0 do   begin     c : = c + 1;     a : = a div 10;   end;   write (c); end. var   i, n : integer; begin   read (n);   for i : = 1 to trunc (sqrt(n)) do     write (i, ' '); end. var   n, i : integer; begin   i : = 1;   while i*i*i < = n do     i : = i + 1;   writeln (i); end.

Популярно: Информатика