М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
NyushaLove
NyushaLove
26.09.2020 15:09 •  Информатика

Составить программу, которая находит периметр прямоугольника со сторонами a и b, введенные с клавиатуры

👇
Ответ:
alenajad
alenajad
26.09.2020
Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы
4,8(35 оценок)
Открыть все ответы
Ответ:
mmmmm269
mmmmm269
26.09.2020

Переменная b = 48

Переменная a = -2

Переменная с = 9

Переменная с = 1

Объяснение:

C++

#include<iostream>

#include <cmath>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int a;

int b;

int c;

//1

a = 3;

b = 8;

a = b - a * 2;

b = 24 / a * 4;

cout << "Переменная b = " << b << endl;

//2

b = 3;

a = (-8);

b = 7 - a + b;

b = (a + b) / 5;

a = a / 2 + b;

cout << "Переменная a = " << a << endl;

//3

a = 20;

b = 3;

a = a % b + 5;

c = a / b + a;

cout << "Переменная с = " << c << endl;

//4

a = 24;

b = 5;

b = a % b;

c = a / 4 / (b + 1);

cout << "Переменная с = " << c << endl;

}

4,7(19 оценок)
Ответ:
saidos1000
saidos1000
26.09.2020

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then writeln('1') else

        if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then writeln('1')

           else writeln('2')

end.

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then write('1') else                      

      if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then write('1')

           else writeln('2')

end.

4,4(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ