Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
Ответ:
program obmen;
var x,y,z:integer;
begin
writeln('введите x');
readln(x);
writeln(' введите y');
readln(y);
if x>y
then z:=x;
if z>y
then x:=y;
if z>x
then y:=z;
writeln('x= ', x);
writeln('y = ', y);
end.
Объяснение:
Смотри, ты вводишь x и y, и если x>y, то через if-ы присваиваешь значение x значению z; значению x значение y и значению y значение z
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Основные информационные процессы. А теперь зададимся вопросом: что делает человек с полученной информацией? Во-первых, он ее стремится сохранить: запомнить или записать. Во-вторых, он передает ее другим людям. В третьих, человек сам создает новые знания, новую информацию, выполняя обработку данной ему информации. Какой бы информационной деятельностью люди не занимались, вся она сводится к осуществлению трех процессов: хранению, передаче и обработке информации
Подробнее - на Znanija.com - znanija.com/task/27337173#readmore
2^N = 256, следовательно N = 8 бит, для кодирования 256 цветов нужно 8 бит или 1 байт
640 * 480 * 1 байт = 307200 байт
307200 : 1024 = 300 Кбайт
Значит недостаточно 128 Кбайт