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

Написать алгоритм и программу решения следуa длина прямоугольника а см а ширина на 5 см меньше найти периметр

👇
Ответ:
Erkinbekulbosin
Erkinbekulbosin
31.05.2020
Pascal
Program Perimeter
var a, b, p: real;
begin
readln(a);
b := a - 5;
P := 2*a + 2*b;
Writeln(p);
End.

Алгоритм: вводим а, считаем b, затем получаем p и выводим его на экран.
4,7(21 оценок)
Открыть все ответы
Ответ:
farhinura10009
farhinura10009
31.05.2020
#include "stdafx.h"
#include "iostream"    //Подключаем библиотеку ввода вывода
#include "math.h"      //библиотека математических функций

#include <windows.h>

using namespace std;   //подключение пространства имён std - открывает
//доступ к cin и cout из библиотеки iostream

int main()   //начало программы
{
SetConsoleCP(1251);   //если будешь компилировать     SetConsoleOutputCP(1251);   //то это для подключения русского языка в консоли

float x, y, z;   //объявление вещественных переменных
cout<<"Введите значение X";   //вывод строки
cin>>x;   //вводим число
y=sqrt(x);   //считаем y
if ((x<3) || (x>8))    //условие. если (x<3 или x>8)  
z=x*y; //есил истино z=x*y
else z=x+y; //иначе z=x+y

cout<<"z= "<<z;  //вывод результата

cout<<"Для завершения программы нажмите любую клавишу...";
cin.get();
cin.get();
return 0;
}
4,4(23 оценок)
Ответ:
Kazhyal
Kazhyal
31.05.2020
1.var a:integer;{объявление переменных}
          b:real;
begin{начало  тела программы}
write('введите два числа => ');{вывод сообщения пользователю}
readln(a,b);{ввод данных пользователем}
if (a>5) then {сравнение первого введённого числа с 5}
b:=b/2;{если а>5 b приравниваем к b делённое на 2}
writeln(b);{выводим b}
end.{конец тела программы}
2.var a,b,c,d:integer;{объявление переменных}
begin{начало тела программы}
write('введите три числа (через пробел) => ');{вывод информации пользователю}
read(a,b,c);{ввод инф. пользователем}
if (a>=0) then d:=d+1;{если а положительное число счётчик +1}
if (b>=0) then d:=d+1;{тоже самое что с верху}
if (c>=0) then d:=d+1;{тоже самое что с верху}
writeln('количество положительных чисел ',d);{вывод информации}
end.{конец тела программы}
4,5(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ