//PascalABC
//NaaMan
var
    V, pi, h, r : real;
begin
    pi := 3.1415926;
    write('Укажите радиус основания конуса > ');
    readln(r);
    write('Введите высоту конуса > ');
    readln(h);
    V := 1 / 3 * pi * r * r * h;
    writeln('Объем конуса V = ', V);
end.

0 0

4 года назад

СРОЧНО 99б Задан массив F из 14 элементов случайным образом в диапазоне [-11..11] Найти количество элементов массива кратных 5

Mikky777 [7]

Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

В электронной таблице значение формулы =СРЗНАЧ(A1:B4) равно 3. Чему равно значение ячейки A4, если значение формулы =СУММ(A1:B3)

Moneko [7]

Простите, но у меня вышло -17

0 0

4 года назад

Тема:ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.) Задача: Дано целое ч

ruslan02091976

uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.

Если нужно выполнять программу из-под программной оболочки, удали первую строку.

0 0

4 года назад