Данное выполняется в программе pascalabc.net. поэтому я за него такое кол-во . если вы заранее не знаете, как это решается, то ничего не пишите. те, кто работал с этой программой, прошу . заранее . написать программы для решения . условия в программе - обязательно. 1. дано целое число. определить: a. является ли оно четным; b. оканчивается ли оно цифрой 7; c. оканчивается ли оно четной цифрой? 2. даны радиус круга и сторона квадрата. у какой фигуры площадь больше? 3. даны объемы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 4. известны два расстояния: одно в километрах, другое - в футах (1 фут = 0,45 м). какое из расстояний меньше? внимание! любые попытки получить "на халяву", я буду отмечать, как нарушение.

290

315

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

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

валерия852

Информатика

4,8(75 оценок)

Var b,c: boolean; a: integer; begin readln(a); writeln(not odd(a)); if a mod 10 = 7 then b: =true; writeln(b); writeln(not odd(a mod 10)); end.var r,a: integer; beginread(r,a); if a*a> pi*r*r then writeln('square')else if a*a< pi*r*r then writeln('circle')else writeln('equal'); end.var m1,m2,v1,v2: integer; beginread(m1,v1,m2,v2); if m1/v1> m2/v2 then writeln('p1> p2')else if m1/m2< m2/v2 then writeln('p1< p2')else writeln('p1=p2'); end.var a,b: real; beginread(a,b); b*=0.45; if a> b then writeln(b)else if a< b then writeln(a)else writeln('equal'); end.

gukuwa09

Информатика

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

Program summa;

uses crt;

var a,b,c,d:integer;

begin

a:=7;

b:=3*a;

c:=0;

for d:=1 to b do

begin

if d mod 3 = 0 then c:=c+d;

end;

writeln('ответ = ',d);

end.

Нажми, чтобы рассказать другим, насколько ответ полезен

5,0

Подробнее - на -

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.