program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Ответ дал: Гость
обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:
14400 * 10 : 8 = 18000 символа
336600 * 10 * 8 = 420750 символа
Ответ дал: Гость
триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.
Ответ дал: Гость
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
program ohotnik;
uses crt;
var i: integer;
begin
clrscr;
textcolor(4);
write(' ka}i{gbiu ');
textcolor(12);
write(' oxothuk ');
textcolor(14);
write(' }i{ejiaet ');
textcolor(2);
write(' 3hatb ');
textcolor(3);
write(' rge ');
textcolor(1);
write(' cug9t ');
textcolor(5);
write(' fa3ahbi ');
readln;
end.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
Популярные вопросы