Cоставить программу по блок-схеме. 99 баллов за правильный ответ

Cоставить программу по блок-схеме. 99 баллов за правильный ответ
Гость
Ответ(ы) на вопрос:
Гость
1. var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); if a div b = b then a:=a div b else a:= a mod b; writeln('a=',a); end. Пример: a=16 b=5 a=1 2. var x,y:integer; begin write('x='); readln(x); write('y='); readln(y); repeat y:=y-x; x:=x-2; until x>y; writeln('x=',x,'  y=',y); end. Пример: x=12 y=25 x=8  y=3 3. var s,i:integer; begin s:=0; for i:=1 to 5 do s:=s+i; writeln('s=',s); end. Результат: s=15
Не нашли ответ?
Ответить на вопрос
Похожие вопросы