Регистрация
047897
05.10.2021 07:27
Информатика
Есть ответ 👍

Записать программу на языке паскаль. a: =7 b: =3 c: =a+b если c> d, то s: =c-d иначе s: =d-c

287
398
Посмотреть ответы 3

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

nastyap20032
nastyap20032
4,5(97 оценок)
Var a,b,c,d,s: integer; begin   readln(d);   s: =0;   a: =7;   b: =3;   c: =a+b;   if c> d then    s: =c-d   else    s: =d-c; writeln(s); end.
Aznabaev09
Aznabaev09
4,7(85 оценок)
Var a,b,c,,ds : integer; begin a: =7; b: =3; c: =a+b; if c> d then s: =c-d else s: =d-c; end.
Champagne
Champagne
4,4(72 оценок)
Program koordunatu; var x,y: real; begin write( 'x=> ' ); readln(x); write( 'y=> ' ); readln(y); if (x=0) and (y=0) then writeln('m(0,0)') else if x=0 then writeln('oy') else if y=0 then writeln('ox'); if (x> 0) and (y> 0) then writeln('і'); if (x< 0) and (y> 0) then writeln('ii'); if (x< 0) and (y< 0) then writeln('iii'); if (x> 0) and (y< 0) then writeln('iv') end.

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