Данное выполняется в программе pascalabc.net. поэтому - вопрос №2570920 от Даниил12345666 12.02.2023 06:32

Question

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

Даниил12345666 · Answer

Var b,c:boolean;a:integer;beginreadln(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...