Регистрация
VladaDubrovskaя
19.10.2021 02:12
Информатика
Есть ответ 👍

Паскаль. кто первый подредактирует код, чтоб работал, тому 30 ! первому! программа : калькулятор var a,b,c,d: integer; begin; writeln('1 - сумма'); writeln('2 - разность'); readln(d); case d of; 1: writeln('напишите числа'); readln(a,b): c: =a+b; writeln('сумма =',c): 2: writeln('напишите числа'); readln(a,b): c: =a-b; writeln('разность=',c): end; end.

225
356
Посмотреть ответы 3

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

Танюшксав
Танюшксав
4,4(50 оценок)
Var   a,b,c,d: integer; begin   writeln('1 - сумма');   writeln('2 - разность');   readln(d);   case d of   1: begin       writeln('напишите числа'); readln(a,b);       c: =a+b; writeln('сумма =',c)       end;   2: begin       writeln('напишите числа'); readln(a,b);       c: =a-b; writeln('разность=',c)       end   end end.
mishazhidkov2
mishazhidkov2
4,8(10 оценок)
Program qwer; uses crt; var a,b,c,d: integer; begin writeln('1 - сумма'); writeln('2 - разность'); readln(d); case d of 1:   begin writeln('напишите числа'); readln(a,  b); c  : =  a  +  b; writeln('сумма =  ',c); end; 2:   begin writeln('напишите числа'); readln(a,  b); c  : =  a  -  b; writeln('разность  =  ',c); end; end; end.
veronichkastan123
veronichkastan123
4,4(14 оценок)
(по условию х - трехзначное) var x,s,i: integer; begin readln(x); s: =0; for i: =1 to 3 do begin s: =s + x mod 10; x: = x div 10; end; if s mod 2=0 then writeln('чет.') else writeln('нечет.'); end.

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