Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1-бит=2
2бит=4
3бит=6
4бит=16
program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
Популярные вопросы