Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
на египетскую - иероглифы.
графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит
var s,i,n,a: integer;
read(a,n);
s: =1;
for i : = 1 to n do
s: =s*a;
writeln('a в степени n = ',s);
s: =s*i;
writeln(s);
s: =0;
for i: = 1 to n do
read(a);
s: = s + a;
end;
writeln('среднее арифметическое = ',s/n)
Популярные вопросы