Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда. если такая температура введена, вывести на экран сообщение "введена температура таяния льда", иначе "такой температуры нет".

напишу на паскале:

var t1,t2,t3: real;

begin

writeln('введите первую температуру: ');

read(t1);

writeln('введите вторую температуру: ');

read(t2);

writeln('введите третью температуру: ');

read(t3);

if t1> 0 or t2> 0 or t3> 0 then do writeln('введена температура таяния льда');

else writeln('такой температуры нет');

end.

var t1,t2,t3: integer;

begin

writeln('введиет 3 значения температуры: ');

readln(t1,t2,t3);

if (t1> =0)or(t2> =0)or(t3> =0)

then writeln('введена температура таяния льда')

else writeln('такой температуры нет');

end.

пример:

введиет 3 значения температуры:

-10 5 -7

введена температура таяния льда

100 кбайт = 100 * 8 = 800 кбит

800 : 1024 = 0,78125 мбит

0,78125 : 100 = 0,0078125 сек

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.