1 <
2 ? 1,3
3 x
4 >
5 ? 4,6
6 x
7 >
8 ? 9,1
9 !
Паскаль
program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Жидкокристаллические мониторы более востребованны сегодня, потому что имеют ряд неоспоримых преимуществ перед ЭЛТ-мониторами. Во-первых, ЖК-мониторы более экономично расходуют энергию, что в конечном итоге выливается в квитанцию об оплате за электроэнергию. Также ЖК-мониторы занимают мало места на рабочем столе благодаря своему «плоскому» виду.
Конечно же, более современные ЖК-мониторы обладают преимуществами и в технологиях. Возможность подключения ЖК-мониторов через HDMI позволяет увидеть цвета по-новому. Важно отметить, что ЖК-мониторы не имеют свойства намагничиваться, и, соответственно, размагничивать их не нужно. ЖК-мониторы обладают хорошей яркостью, однако на начальном этапе их эволюции этот аспект был уязвимым местом ЖК-мониторов в союзе с плохим углом обзора. Сегодня же эти параметры приведены в порядок и современные ЖК-мониторы обладают хорошей контрастностью, яркостью и углом обзора до 178 градусов, что позволяет видеть картинку так же сочно и красочно практически с любого угла
Procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.
файл input.txt: 11 15 21 13 -5
сумма: 60
