Когда можно заменить if else на тренарную операцию "?" ?

Ответы

Ответ дал: Гость

2 var 3 s: string; 4 begin 5 readln(s); 6 while pos('с',s)> 0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно

Ответ дал: Гость

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

Ответ дал: Гость

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1

Ответ дал: Гость

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

Другие вопросы по: Информатика

Запиши, что получается после каждого действия 1. начало 2. запиши (1) 3. замени первую букву на (2) 4. замени последнюю букву на (3) 5. поменяй местами две буквы посередине 6. коне...

28.02.2019 22:10

Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. найти кол-во чисел ai (i=1,) являющихся полными квадратами...

04.03.2019 04:10

1. оператор break. ввести с клавиатуры n чисел. вывести на экран число-количество чисел, котороые можно сложить по порядку, чтобы сумма была меньше 100 и сумму этих чисел.2.операто...

03.03.2019 23:38

Решение в столбик "двоичная арифметика"нужно сделать и на умножение и на сложение 111 и 1101 10101 и 101 101111 и 10001...

11.03.2019 13:09

Для выражения в предыдущем запишите равносильное выражение без использования операции не. после этого расставьте одну пару скобок так, чтобы значение выражения при а = 5, b = 10 и...