1. А с чертой или не А
2. А с чертой или не А
3. А с чертой или не А (это все одно и то же)
4. Монитор
5. Процессор
1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
Program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.
1 бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. А 6 может быть равна любой из 1;2;3;4;5.
programm reshenie;//название программы(название reshenie можно заменить любым другим)
var x, y, a:Real;//создаю переменные и пишу что они не целые(real)
begin//начало программы
writeln ('Введите сколько наклеек фей накопилось у Пети');//вывод текста
readln(x);//ввод значения x пользователем
writeln (Введите сколько накопилось у Маши');//вывод текста
a:=x/y;//пишем, что а равен значению x деленного на y
writeln ('Петя сможет выменять ' + a + ' ' + 'наклеек супергероев');//вывод текста
readln;//для того чтобы программа ждала нажатия кнопки enter
end.//конец
