1.
var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:=a to b do
if i mod 2=0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
5 20
k = 8

2.
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.

Пример:
5 20
20 5

0 0

2 года назад

Информатика 4 класс,стр.10 # 12

Федор Сабанеев [21]

Какой учебник информатики?

0 0

4 года назад

Сколько цветов будет содержать палитра если на один пиксель отводится 4 бита памяти? Помогите оформить и решить

Sandra09

Дано:
i = 4
N - ?

Решение:
N = 2^i
N = 2^4 = 16

0 0

4 года назад

Составьте программу вычисления площади квадрата со стороной А

Алёна лозовая

Программа на паскале:
program square;
var a,s:integer;
begin
write('a = ');
readln(a);
s:=a*a;
writeln('s = ',s);
end.

Пример:
a = 5
s = 25

0 0

4 года назад