Регистрация
дашасалищева
19.07.2022 09:04
Информатика
Есть ответ 👍

Uses crt; var a: integer; begin for a: =10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. из этой программы сделать программу с циклом repeat

224
353
Посмотреть ответы 2

Ответы на вопрос:

даша2336
даша2336
4,7(93 оценок)
Uses crt; var a: integer; begin a: =10000; repeat if (a mod 133=125) and (a mod 134=111) then writeln(a); a: =a+1; until a> 99999; end.
DamirKa1111
DamirKa1111
4,5(24 оценок)

program raf105;

var x,y: real;

begin

write('x = ');

readln(x);  

if x < = 0

  then y: = power(x,2) - 0.3;

if (0 < x) and (x < = 1)

  then y: = 0;

if x > 1

  then y: = power(x,2) - x;

writeln('y = ',y);

end.

pascalabc 3.4.2

Популярно: Информатика