Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
writeln(s)
end.
program xxx;
var s : string;
а : integer;
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
24 * 32 = 768 символов на 1 странице
768 * 12 = 9216 символов на 1 странице
9216 * 1 = 9216 байт в буклете
9216 * 8 = 73728 бит в буклете
Популярные вопросы