Регистрация
vlad2217890
13.07.2020 06:12
Информатика
Есть ответ 👍

Ввести четыре целые числа, найти наибольшее из них. пример 1 5 4 3 наибольшее число 5 напишите код в паскаль,

127
432
Посмотреть ответы 2

Ответы на вопрос:

zifu
zifu
4,5(32 оценок)
Program n; var a, b, i: integer; begin b: = 0; for i: =1 to 4 do   begin   readln(a);   if a > b then   b: =a;   end; writeln('наибольшее: ' + b); end. как это работает? объявляются три целочисленные (interger) переменные: a - вводимое число b - самое большое число i - счётчик цикла после запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении) запускается цикл for с счётчиком i каждый раз цикл просит ввести пользователя число (а) дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a> b) если ведённое число больше, чем самое большое, то переменной b присваивается значение a и так пока цикл не закончится затем выводится переменная b, в которой хранится самое большое из введённых чисел.
bitkut
bitkut
4,6(51 оценок)

var

 x1,x2,x3,y1,y2,y3:real;

 a1,a2,a3,b1,b2,b3:real;

 s1,s2:real;

 begin

   write('Введите вершины 1 треуголника - ');

   readln(x1,x2,x3,y1,y2,y3);

   write('Введите вершины 2 треуголника - ');

   readln(a1,a2,a3,b1,b2,b3);

   s1:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;

   s2:=abs((a1-a3)*(b2-b3)-(a2-a3)*(b1-b3))/2;

   if s1>s2 then writeln('Треугольник под №1 площадь имеет больше')

   else

   writeln('Треугольник под №2 площадь имеет больше');

   readln

 end.

Со второй задаче разберись сам :3

Популярно: Информатика