-
- 20 April 2011 Английский язык
- Автор: Фрола32
№1. Составить программу нахождения длины окружности и площади круга по указанному радиусу R.
№2. Дано трехзначное число. Найти произведение цифр числа.
№3. Меньшее из трех чисел увеличить в 3 раза.
-
- 20 April 2011
- Ответ оставил: BoomboteXL
var r,l,s:real;
begin
write('R=');read(r);
s:=pi*sqr(r);
l:=2*pi*r;
write('S=',s,';L=',l);
end.var a,p:integer;
begin
read(a);
p:=(a mod 10)*(a div 100)*(a mod 100 div 10);
write(p);
end.var a,b,c,min:integer;
begin
writeln('Введи 3 числа');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln(3*min:4);
readln;
end. -
- 20 April 2011
- Ответ оставил: Anastasiyacom
Язык программирования: Паскаль
№1.
R - радиус окружности
C - длина окружности
S - площадь круга
Взято число Пи, равное 3,14.
var
R, C, S : real;
begin
readln (R);
C := 2 * 3.14 * R;
S := 3.14 * SQR(R);
writeln (C);
writeln (S);
end.
№2
a - натуральное число
p - произведение цифр числа
var
a, p : integer;
begin
readln (a);
p := (a mod 10) * (a div 10 mod 10) * (a div 100);
writeln (p);
end.
№3.
a - первое число
b - второе число
c - третье число
Учитывая, что все числа разные.
var
a, b, c : integer;
begin
readln (a);
readln (b);
readln (c);
if (a < b) and (a < c) then
a := a * 3;
else
if b < c then
b := b * 3;
else
c := c * 3;
writeln (a);
writeln (b);
writeln (c);
end. -
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
На сегодняшний день (05.12.2024) наш сайт содержит 16363 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос