Элементы схемотехники. логические схемы
задание

1-ый

uses graphabc,crt;

var i:integer; h:real;

begin

randomize;

rectangle(280,130,320,320);

rectangle(250,10,350,260);

circle(300,55,35);

circle(300,135,35);

circle(300,215,35);

for i:=1 to 1000 do

begin

floodfill(300,55,clred);

delay(3000);

floodfill(300,55,clwhite);

delay(1000);

floodfill(300,135,clyellow);

delay(3000);

floodfill(300,135,clwhite);

delay(1000);

floodfill(300,215,clgreen);

delay(1000);

floodfill(300,215,clwhite);

delay(1000);

end;

end.

2-ой

Program Svetofor;

Uses crt;

var c:1..3;

begin clrscr;

randomize;

writeln('переход по сигналу светофора');

c:=random (3)+1;

gotoxy(35,11);

case c of

1:begin textcolor (red); writeln ('красный-стой!');end;

2:begin textcolor (yellow); writeln('желтый-приготовься!');end;

3:begin textcolor (green); writeln('зеленый-иди!');end;

end;

sleep(3000);

until keypressed;

End.

готово. паскаль

Объяснение:

Задание 1

с = 0

Задание 2

var

 n, m, c: integer;

begin

 Write('Введите числа m и n >> ');

 ReadLn(m, n);

 if (m mod 5 <> 0) or (m < n) then

    c := (m mod 10) + (n mod 10);

 WriteLn('Сумма последних цифр этих чисел равна ', c);

end.

Задание 3

var

 a, b, c: integer;

begin

 Write('Введите числа a, b и c >> ');

 ReadLn(a, b, c);

 if (b < 50) and (b > 20) and (c < a) then

 begin

    WriteLn('Сумма этих чисел равна ', a + b + c);

    WriteLn('Произведение этих чисел равно ', a * b * c);

 end;

end.