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

Var a,b,c: real; begin read (a,b,c); if (a=0) or (b=0) or (c=0) then writeln ('есть') else writeln ('нет'); end.

For - это цикл со счетчиком "i : = 0 to 10" - это начальное и конечное значения (ноль и десять) т.е. начинаем с нуля, что-то делаем, и берем следующее число - "1" потом снова что-то делаем, берем следующее - "2" в "i" - записывается то число, с которым работаем в данный момент и так, пока не дойдем до "10" а вот что именно делать - написано между словами "begin" и "end"или сразу после "do" (если строка одна) 1) можно представить несколько клеток с номерами () и числами в них а в квадратных скобках "[i]" - номер клетки берем ноль, a[0] - "ячейку с номером 0" и записываем туда число 10 a[i] : = 10 - i; a[0] = 10 - 0 (в а0 записать 10) далее в a[1] записываем "9" (10 - 1) в a[2] записываем "8" (10 - 2) и так до десяти включительно 2)далее цикл от 0 до 5 a[10-0] = a[5-0] (из десятой клетки записываем число в пятую) a[5+0] = a[0] a[10-1] = a[5-1] (из 9ой в 4) a[5+1] = a[1] (из 6ой в 1) a[10-2] = a[5-2] (8 -> 3) a[5+2] = a[2] (7 -> 2) и т.д. и т.п. 3)как-то так должно работать (следующий столбец - следующее число)

Var a,b,c,d,x,y: byte; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('d = '); readln(d); write('x = '); readln(x); write('y = '); readln(y); writeln((a+d)*100+(b+x)*10+c+y); end. var a,b,c: integer; begin write('a = '); readln(a); c: =a; while c< > 0 do     begin     b: =b*10+(c mod 10);     c: =c div 10;     end; if a=b then writeln(a - ' палиндром') else writeln(a,' не является палиндромом') end.