Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
Книга - учебник
книга - справочник
жидкость - бензин
жидкость - молоко
человек - врач
человек - строитель
Пусть х - глубина цвета.Тогда кол-во цветов в палтре ровно k=2^x
k=2^4,24
=16,96
Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.
Результат:
s = 8027.50
p = 304.54
Сумма больше
1) для моделирования своих проектов
2) для хранения информации о пациентах
3) для создания презентаций к урокам, для хранения информации об учениках
4) для связи с коллегами через интернет
5) для хранения и учета информации о бюджете
6) коМ/Спозитор? ?
7) для хранения информации о встречах, делах начальника
8) для быстрого написания текста, хранения его
9) для создания картин на нем, для поиска вдохновения
<span>10) для создания новых моделей, поиска через интернет чего-то нового и хранения это на ПК</span>