Что-бы поставить кол-во знаков после запятой я просто использовал библиотеку iomanip и функцию fixed, и через setprecision поставил кол-во знаков. Естественно это можно сделать через формулы и какие-то алгоритмы, но это очень долго, муторно, да и зачем? Если это намного эффективнее, быстрее и намного легче.
Дизайнер — художник-конструктор<span>, человек, занимающийся художественно-технической деятельностью в разных отраслях (в том числе а</span>рхитектор, проектировщик,иллюстратор<span>, дизайнер п</span>лакатной<span> и прочей рекламной </span><span>графики</span><span>).</span>
Var a:integer; k:string;
Begin
Writeln('Введите ваше имя');
Readln(k);
Writeln('В каком ты сейчас классе? ') ;
Readln(a);
If a<9 then writeln(' Ты ещё не знаешь Паскаль') else if a>11 readln(a)
Else write('Хорошо, ', k,'. Продолжим') ;
End.
Var a: Integer;
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.
Из описания следует, что x,y,z - целые неотрицательные числа.
Слово "Рыбка" выводится всегда, поскольку х либо меньше 6, т.е. равно 0,1,2,3,4,5, либо больше 5, т.е. равно 6,7,8,9,10. Соответственно, слово "Птичка" не будет выведено никогда.
Если y>7 (y=8,9,10), то условие y mod 2 = 3 всегда ложно (остаток от деления на два не может быть равен трем) и поэтому выводится слово "плавает". Если же y<=7, то не выводится ничего.
При z, кратном 3 (z=0,3,6,9) проверяется истинность сложного высказывания (x div 2 > 4) and (x mod 2<>1). Оно истинно если при целочисленном делении х на два получается число большее четырех, т.е. при х=10 и при этом х должен быть четным. И тогда будет напечатано в "пруду". Если же это высказывание ложно, печатается "под облаками".
И в конце выводится точка.
Итак, при значениях x,y,z не превышающих 10:
a) Рыбка плавает в пруду. - x=10, y∈[8,9,10], z∈[0,3,6,9]
b) Птичка летает в пруду. - никогда
c) Птичка под облаками. - никогда
d) Рыбка летает под облаками. - никогда
e) Птичка плавает под облаками. - никогда
f) Рыбка летает. - никогда
