задачами по C++. Очень Дано R - радиус окружности. Найти длину окружности (длина окружности прямо пропорциональна удвоенному произведению Пи на радиус окружности).
2 Ввести 3 числа целого типа а, с и в Поделить нацело с на сумму чисел в и а. (целочисленное деление)
3 Ввести 3 числа вещественного типа x и y,z. Найти целую часть суммы этих 3-х чисел. Найти дробную часть среднего геометрического трех заданных положительных чисел.
4 Присвоить целой переменной h 2-ую от конца цифру в записи
5 Переставить местами значения 4-х вещественных переменных x,y,z,q так чтобы в х оказалось значение y, в у - значение z, в z - значение q, а в q - прежнее значение х.
6 Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой.
7 Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
const n=10;
var a:array [1..n] of real;
i:byte;
max:real;
nmax:byte;
begin
//начало цикла ввода
For i:=1 to n do
//ввод
Readln(a[i])
//берём за максимальный 1ый элемент
max:=a[1];
//берём количество = 1
nmax:=1; /
/начало цикла проверки
For i:= 2 to n do
if a[i]> max then
begin
max:=a[i];
nmax:=1;
end else
if a[i]= max then
nmax:=nmax+1;
//вывод
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax); end.
program raf105;
const
n = 4;
var
a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:= random(1,9);
if i = j then
sum:= sum + a[i,j];
write(a[i,j]:4,' ');
end;
end;
writeln;
writeln;
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if i <> j then
a[i,j]:= a[i,j] * sum;
write(a[i,j]:4,' ');
end;
end;
end.
PascalABC 3.4.2