Написать программу на языке paskal заданы диаметр круга d и сторона квадрата а. определить, поместится ли круг в квадрате. проверить при а) d=70, a=36 б) d=8, a=64 квадрат поместится в круге, если диаметр окружности меньше или равен
стороне квадрата. результат вывести на экран.

251

334

Посмотреть ответы 2

Ответы на вопрос:

itsnastyad

Информатика

4,4(25 оценок)

program nm12;

var a, d : integer;

begin

writeln (' vvedite diametr kruga i storony kvadrata ');

readln (d);

readln (a);

if d< =a then writeln (' krug pomestits9 v kvadrate ')

else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

vadikloga133

Информатика

4,4(25 оценок)

Program noname; var a,b,c,d,e; begin readln(a); b: =a div 10; a: =a-b; c: =a div 5; a: =a-c; d: =a div 2; a: =a-d; e: =a; writeln('десяток: ',b); writeln('пятёрок: ',c); writeln('двоек: ',d); writeln('единиц: ',e); writeln('всего монет: '(b+c+d+e)); end.