Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
линейный (следования)
разветвляющийся (развилка)
циклический
program xxx;
var s : string;
а : integer;
begin
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
end.
var
i,n,a: integer;
readln(n);
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
2, 4, 8, 16 (двоичная (10000), четверичная (100), восьмеричная (20), шестнадцатеричная (10))
Популярные вопросы