помогите в PASCAI пожалуйстатолько с 3 по 4
Помогите в PASCAI пожалуйста
только с 3 по 4
1 ответ
Димка Доколин
//Задание 1
//Сумма и произведение двух чисел
var
a,b: integer;
begin
readln(a,b);
writeln('Сумма = ',a+b,' Произведение = ',a*b); по сторонам
end.
//Задание 2
//Площадь и периметр прямоугольника
var
a,b: integer;
begin
readln(a,b);
writeln('Площадь = ',a*b,' Периметр = ',(a+b)*2);
end.
// Задание 3
var
a,b,c,d: integer;
begin
write('введите a,b,c,d ');
readln(a,b,c,d);
writeln(a,'/',b,'+',d,'/',c,'=',a/b+d/c:0:2);
end.
Тестовое решение:
введите a,b,c,d 2 3 4 5
2/3+5/4=1.92
// Задание 4
var
r: real;
begin
write('введите радиус ');
readln(r);
writeln('Длина окружности радиуса ',r,' = ',2*pi*r:0:2);
writeln('Площадь круга радиуса ',r,' = ',pi*r*r:0:2);
end.
Тестовое решение:
введите радиус 5
Длина окружности радиуса 5 = 31.42
Площадь круга радиуса 5 = 78.54
// Задание 5
// Сумма цифр трехзначного числа
var
a,s: integer;
begin
readln(a);
while alt;gt;0 do begin
s:=s+ a mod 10;
a:=a div 10;
end;
writeln('Сумма цифр',s)
end.
//Сумма и произведение двух чисел
var
a,b: integer;
begin
readln(a,b);
writeln('Сумма = ',a+b,' Произведение = ',a*b); по сторонам
end.
//Задание 2
//Площадь и периметр прямоугольника
var
a,b: integer;
begin
readln(a,b);
writeln('Площадь = ',a*b,' Периметр = ',(a+b)*2);
end.
// Задание 3
var
a,b,c,d: integer;
begin
write('введите a,b,c,d ');
readln(a,b,c,d);
writeln(a,'/',b,'+',d,'/',c,'=',a/b+d/c:0:2);
end.
Тестовое решение:
введите a,b,c,d 2 3 4 5
2/3+5/4=1.92
// Задание 4
var
r: real;
begin
write('введите радиус ');
readln(r);
writeln('Длина окружности радиуса ',r,' = ',2*pi*r:0:2);
writeln('Площадь круга радиуса ',r,' = ',pi*r*r:0:2);
end.
Тестовое решение:
введите радиус 5
Длина окружности радиуса 5 = 31.42
Площадь круга радиуса 5 = 78.54
// Задание 5
// Сумма цифр трехзначного числа
var
a,s: integer;
begin
readln(a);
while alt;gt;0 do begin
s:=s+ a mod 10;
a:=a div 10;
end;
writeln('Сумма цифр',s)
end.
Александра
Пожалуйста, фурроров!
Олежка Томлянкин
какие?
Антонина Странова
Добавлю в это решение минут через 10
Симбухина
Кира
Добавил решения на все задачки в листочке, глядите
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов