Напишите программы в Pascal.
1. Напишите программу, которая определяет число учеников в классе, чей вес
превышает средний.
2. Напишите программу вычисления расстояния между точками А и В, если известны
координаты xA, yA, xB, yB.
3. Напишите программу нахождения всех двухзначных чисел и вычисления их
суммы.
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
#include<iostream>
#include<ctime>
#include<stdlib.h>
using namespace std;
int main() {
setlocale(LC_ALL, "russian");
const int ROWS = 500;//строки
const int COLS = 500;//колонки
int arr[ROWS][COLS];
/*заполнение массива*/
for (int i=0; i<ROWS; i++) {
for (int j=0; j<COLS; j++) {
arr [i][j] = rand() % 2;
}
}
/*вывод массива*/
for (int i=0; i<ROWS; i++) {
for (int j=0; j<COLS; j++) {
cout<<arr[i][j]<<"\t";
}
cout<<endl;
}
}
Объяснение:
setlocale(LC_ALL, "russian") не обязательно...
Можно лучший ответ , ОЧНЬ надо :