Program asd; USES crt; Var a,b:integer; BEGIN Clrscr; a:=random(5); b:=random(5); Writeln(' ',a,' ',b); If a>=b then Writeln(a) else Writeln(b); Readln; END. Сейчас блок схему напишу.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку