Регистрация
AlinaAlina707
14.11.2022 16:51
Информатика
Есть ответ 👍

Нужно написать программы в паскале: 1. найдите целую часть от деления 15 на 4 и умножьте ее на 18. 2. вычислите периметр треугольника. длины сторон пользователем с клавиатуры. 3. вычислите площадь и периметр прямоугольника. длины сторон пользователем с клавиатуры. 4. вычислите объем и площадь поверхности параллелепипеда. длины ребер с клавиатуры. 5. вычислите длину окружности. радиус окружности задается с клавиатуры. хотя бы что-то из этого, !

196
456
Посмотреть ответы 2

Ответы на вопрос:

aksiniaplotniko
aksiniaplotniko
4,7(31 оценок)
//pascal //1 begin writeln((15 div 4)*18); end. //2 var a, b, c: real; begin write('введите стороны треугольника a b c: '); readln(a, b, c); writeln('периметр = ', a + b + c); end. //3 var a, b: real; begin write('введите стороны прямоугольника a b: '); readln(a, b); writeln('площадь = ', a * b); writeln('периметр = ', 2 * (a + b)); end. //4 var a, b, c: real; begin write('введите ребра a, b, c: '); readln(a, b, c); writeln('площадь = ', (2*(a*b+b*c+a*c)): 0: 1); writeln('объем = ', (a*b*c): 0: 1); end. //5 var r: real; begin write('введите радиус: '); readln(r); writeln('длина окружности = ', (2 * pi * r): 0: 1); end.
viktoriakruminaВика
viktoriakruminaВика
4,5(68 оценок)

#include <iostream>

#include <fstream>

#include <ctime>

#define SIZE 30

signed main()

{

setlocale(LC_ALL, "Rus");

srand(time(NULL));

int arr[SIZE];

long prod = 1;

std::cout << "Сгенерированный массив: ";

for (int i = 0; i < SIZE; i++) {

 arr[i] = rand() % 10;

 std::cout << arr[i] << " ";

}

 

for (int i = 0; i < SIZE; i += 2) {

 prod *= arr[i];

}

std::cout << "\nПроизведение элементов массив с четными номерами: " << prod;

std::ofstream fout("my.txt");

fout << prod;

return 0;

}

Популярно: Информатика