Наскальная живопись
Книга
Перфокарта
Магнитная лента
Дискета
Флеш-карта
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
1.е
2.b
3.c
4.c
5.e
6.b
7.c
8.c
9.c
10.с
11.a
12. Read(A,B); A:=A*2; B:+B+10;
13. var a: Array[1..5,1..5] of real;
14.a
15. c
16. d
17.a
18 нет блок схемы
19. 1-e 2-d 3-c 4-b 5-a
20. var a,b,S,P: real;
begin
write('Ввод сторон прямоугольника');
Read (a,b);
P:=(a+b)*2;
S:=a*b;
Write('Периметр:', P);
Write('Площадь:', S);
End.
Блок схему по программе легко нарисовать.
=ЕСЛИ(A1=A2;8;СУММ(A1:A2))
В конце не хватало скобки и буквы 'A' не должны быть русскими