Question

Помогите с Паскалем
даю 15 баллов.

Answer 1

Назначь мой ответ самый лучшим
var  x1, x2, y2 :integer;y:real;begin  //Ввод  writeln ('Введите первое число');  readln (x1);    writeln ('Введите второе число');  readln (x2);  //решение if ((x1+x2)>10) then      begin         y:=x1*x2*2;         writeln('удвоеное произведение введеных чисел = ',y);      end   else      begin        y2:=x1+x2;        y:=x1-x2;        writeln('первое число = ', y2);        writeln('второе число = ', y);      end;    //вывод end.

Задача 6
Задача: Лодка выдержит наплаву 250кг. Кирпич весит 1450гр. Выдержит ли лодка X кирпичей. Подсчитайте максимальное количество кирпечей, которое выдержит лодкаАвтор:   Дата:  }constKG=250000; //Лодка выдержит наплаву 250000грkir=1450 ;//Кирпич весит 1450гр  var  x, x2, y2 :integer;y:real;begin  //Ввод  writeln ('Введите количество кирпичей');  readln (x);      //решение y:=x*kir;//вес всех кирпичей if (KG>=y)then          writeln('лодка выдержит данное количество кирпечей')        else        writeln('лодка не выдержит данное количество кирпечей');         y:= KG div kir; writeln('максимальное количество кирпечей, которое может выдержать лодка = ', y);end.

Задача 7
{Задача сделана на языке паскаль, при помощи PaskalPlusОформление сделана как для студенческой задачи
Если есть вопросы пиши в личку

Файл: progam_stud.pasЗадача: Дано трехзначное число. Найти максимальную цифру.Автор:   Дата:  }
  var  x, x1, x2, x3, max :integer;
begin  //Ввод  writeln ('Введите число');  readln (x);      //решение x1:=(x div 100);//сотни x2:=((x mod 100) div 10);//десятки x3:=(x mod 10);//единицы if (x1>x2)then      begin      if (x1>x3)then          max:=x1        else          max:=x3;      end   else       begin          if(x2>x3) then              max:=x2          else              max:=x3       end; writeln('максимальная цифра = ', max);  end.

17131efa7386f3248250b2b3e602654d.pas

2febc31a2f45a8db9b41be3e617300e6.pas

f1e46cd3c1bd233d842a261e406c8416.pas