Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.
Результат:
<span>s = 774779.580</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.
<u>Пример</u>
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5
Флэш-Накопитель
Переносной жесткий диск
Перфокарта
Магнитная лента
Дискет
DVD Диск
#include <iostream>
using namespace std;
int main()
{<span>
setlocale(0,"");</span><span>
int m,d;</span><span>
cout<<"введите номер месяца ";</span><span>
cin>>m;</span><span>
cout<<endl;</span><span>
cout<<"введите номер дня ";</span><span>
cin>>d;</span><span>
cout<<endl;
</span><span> if ((d==28) || (d==31) || (d==30) )</span><span>
cout<<"следующая дата "<<m+1<<". "<<1<<endl;
</span><span> else
</span><span> cout<<"</span>следующая дата<span> "<<m<<". "<<d+1<<endl;
</span><span> return 0;
</span>}
