Помогите пожалуйста!Программки в Паскале.1)Напишите программу,которая обретает
Помогите пожалуйста!Программы в Паскале.
1)Напишите программку,которая обретает сумму,творенье и среднее арифметическое трёх целых чисел,введенных с клавиатуры.Примеры:4+5+7=16;4*5*7=140;(4+5+7)/3=5.333.
2)Напишите программку,которая вводит радиус и вычисляет его площадь и длину окружности.Образцы:радиус 5;площ. и длин.окр. 78.540,31.416
3)Напишите программку,которая вводит два целых числа,а и b(аlt;b),и выводит через пробел 5 случайных целых чисел на отрезке[а,b].Образцы:входные дан.0 100
выходные дан.0 3 86 20 27
1 ответ
Marina Shitareva
1)
var a,b,c:integer;
begin
readln(a,b,c);
writeln(a,'+',b,'+',c,' = ',a+b+c);
writeln(a,'*',b,'*',c,' = ',a*b*c);
writeln('(',a,'+',b,'+',c,')/3 = ',(a+b+c)/3:5:3);
end.
Пример:
4 5 7
4+5+7 = 16
4*5*7 = 140
(4+5+7)/3 = 5.333
2)
var r:integer;
begin
readln(r);
writeln('S = ',pi*r*r:5:3);
writeln('C = ',2*pi*r:5:3);
end.
Пример:
5
S = 78.540
C = 31.416
3)
var a,b,i:integer;
begin
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.
Пример:
0 100
8 1 86 54 60
var a,b,c:integer;
begin
readln(a,b,c);
writeln(a,'+',b,'+',c,' = ',a+b+c);
writeln(a,'*',b,'*',c,' = ',a*b*c);
writeln('(',a,'+',b,'+',c,')/3 = ',(a+b+c)/3:5:3);
end.
Пример:
4 5 7
4+5+7 = 16
4*5*7 = 140
(4+5+7)/3 = 5.333
2)
var r:integer;
begin
readln(r);
writeln('S = ',pi*r*r:5:3);
writeln('C = ',2*pi*r:5:3);
end.
Пример:
5
S = 78.540
C = 31.416
3)
var a,b,i:integer;
begin
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.
Пример:
0 100
8 1 86 54 60
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов