Регистрация
progonskaij
11.03.2023 11:02
Информатика
Есть ответ 👍

Много . паскаль 1.дана сторона квадрата и радиус круга. определить площадь какой фигуры больше. 2. даны объемы и массы двух тел. определить плотность какого тела меньше.

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

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

Аайй
Аайй
4,4(1 оценок)
Первая: var a,r: real; begin writeln('введи длину сторону квадрата'); readln(a); writeln('введи радиус круга'); readln(r); if pi*r*r> a*a then writeln('площадь круга больше') else if pi*r*r< a*a then writeln('площадь квадрата больше') else writeln('площади фигур равны'); end. вторая: var m1,m2,v1,v2: real; begin write('m1 = '); readln(m1); write('m2 = '); readln(m2); write('v1 = '); readln(v1); write('v2 = '); readln(v2); if m1/v1< m2/v2 then writeln('плотность первого тела меньше') else if m1/v1> m2/v2 then writeln('плотность второго тела меньше') else writeln('плотности равны') end.
mashyanova
mashyanova
4,6(3 оценок)

если ты имел в виду чёрные то:

k: =0;

if a mod 2 = 0 then k: =k+1; ( k - счетчик)

if b mod 2 = 0 then k: =k+1;

if c mod 2 = 0 then k; =k+1;

write(k); (число чётных)

Популярно: Информатика