Ctrl+A-Выделить док. целиком
Ctrl+C-Копировать выдел. файл
Ctrl+V-Вставить из буфера обмена копирован./вырезан. фрагмент
Ctrl+X-Вырезать выдел. фрагмент
Объем цилиндра = πR²h, объем параллелепипеда = abh
Программа на паскале:
var r,h1,a,b,h2,v1,v2:real;
begin
writeln('Введите данные цилиндра:');
write('R = '); readln(r);
write('h = '); readln(h1);
writeln('Введите данные параллелепипеда:');
write('a = '); readln(a);
write('b = '); readln(b);
write('h = '); readln(h2);
v1:=pi*r*r*h1;
v2:=a*b*h2;
writeln('V1 = ',v1:5:2,' V2 = ',v2:5:2);
if v1 <= v2
then writeln('Yes') else writeln('No');
end.
Пример:
Введите данные цилиндра:
R = 3
h = 5
Введите данные параллелепипеда:
a = 4
b = 6
h = 5
V1 = 141.37 V2 = 120.00
No
Ответ Б.
(просто число 17 делим на эти числа и смотрим, где в остатке появляется 2)
Program V1;
begin var x, s, i, n :integer;
writeln('Введите цифру');
readln(x);
writeln('Введите степень');
readln(n);
s:=1;
for i:=1 to n do s:=S*x;
writeln(' Степень ', n , ' из ', x, ' = ', s)
<span>end.</span>
В первом вопросе ответ : файл, во втором вопросе ответ: меню программы