bashmakov97
Назначь мой ответ самый лучшим 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.
Answers & Comments
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.