<u>По подробнее можно?!</u>
№1. Блок схема только к 1 заданию!!!!!!!!!!!!!!!!!!!!!!!!
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); S := A + B; M := A * B;
Writeln ('S = ', S); Write ('M = ', M);
End.
№2.
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); if (A > B) then Write ('Число ',A,' больше числа ',B) else Write ('Число ',B,' больше числа ',a)
<span>End.</span>
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
Объяснение:
думаю я помогла!!.так как я 6 класс
Var n:string;k,i:integer;beginreadln(n);k:=length(n);if k=3 then writeln('yes') else writeln('no');end.