<span>print("На трьох будинках є ",3*25,'нінзь!\nВ двох тунелях є ',2*40,'самураїв!\n<span>Всього воїнів вирішили влаштувати </span>заварушку:',3*25+2*40)</span>
1окно 2 формат 3 память 4 пуск 5выделить 6 стол
7окно 8печать
По вертикали
10
11выход
12проводник
Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.
For A = 1 To 10
If A mod 2 <> 0 Then
Print A * A
End if
Next A
Расписание:
Информатика
Физра
Русский
Английский
География
Математика
География
История
Русский
Право