Uses crt; var i_put,o_put: string; i,s_ch,n: byte; flag: boolean; begin clrscr; writeln( vvedite stroku: - id951544020210110 от patya6346 10.01.2021 23:02

Question

Информатика: Uses crt; var i_put,o_put: string; i,s_ch,n: byte; flag: boolean; begin clrscr; writeln( vvedite stroku: ); readln(i_put); flag: =true; while flag do begin flag: =false; s_ch: =pos( ,i_put); if s_ch 0 then begin delete(i_put,s_ch,1); flag: =true; end; end; n: =length(i_put); o_put[0]: =i_put[0]; for i: =1 to n do o_put[i]: =i_put[n+1-i]; if (i_put=o_put) then writeln( yes ) else writeln( no ); readkey; end. надо переводить на с#

patya6346 · Accepted Answer

//Сделал Лугачев Кирилл
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей

begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);

Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.

MOGZ ответил