Помогите решить по паскалю
5-9 класс
|
1)
uses crt;
var a,b,c:integer;
begin
read(a,b,c);
if (a>c) and (b>c) then
writeln(a+b)
else if (a>b) and (c>b) then
writeln(a+c)
else
writeln(c+b);
end.
2)
uses crt;
const n=10;
var funt:integer;
begin
for funt:=1 to n do
writeln(funt,' - ',funt*0.453);
end.
3)
uses crt;
const n=50;
var a,i,sum:integer;
begin
sum:=0;
read(a);
for i:=a to n do
sum:=sum+i;
writeln(sum);
end.
4)
uses crt;
const start=1000;
var ans1,ans2:integer;
i,j:real;
begin
i:=0; j:=0;
while i<=30 do
begin
i:=i+start*2/100;
ans1:=ans1+1;
end;
while j<=1200 do
begin
j:=j+start*2/100;
ans2:=ans2+1;
end;
writeln(ans1,' ',ans2);
end.
Другие вопросы из категории
Норберт Винер и какова его роль в исследовании информационных процессов?
Читайте также
мышки для сбора урожая ИСХОДНЫЕ ДАННЫЕ ______________________ 2)Малыш и карлосон решили по-братски разделить два сладких орешка-болльшой и маленький . Как это сделать ? Помогите плиз , заранее спасибо :) надеюсь на вас ! Просто я непоняла что с исходными данными делать .
После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.
22. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтобы образовать с другими двумя отрезками треугольник. Указание: Для этого его длина должна быть меньше суммы длин двух других отрезков. Замечание: Пока не думайте о том, что слишком длинными могут быть второй или третий отрезки. Об этом – задание из 5.5.
Даны пять чисел,
каждое из которых по модулю не превышает ста. Вычислить максимум среди
отрицательных из них.
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)