• 
  • 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.

  0
• 
  • 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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (21.12.2024) наш сайт содержит 16363 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы