Помогите с 2 и 3м, пожалуйста)
5-9 класс
|
1)
var a,b,c,x,z,f:integer;
begin
readln(a);
b:= a div 10;
c:= a mod 10;
a:=a*a;
x:=b*b*b ;
z:=c*c*c;
f:=4*(x+z);
if a=f then
writeln ('ПОЛОЖИТЕЛЬНО')
else
writeln('ОТРИЦАТЕЛЬНО');
end.
2)
var a:integer;
begin
writeln('ВВЕДИТЕ ОЦЕНКУ');
readln(a);
if (a<1) or (a>5) then
writeln('ОШИБКА');
if a=1 then
writeln('ПЛОХО');
if a=2 then
writeln('НЕ
Другие вопросы из категории
устройстве вывода
Читайте также
местами наибольше элемент с наименьшим.Распечатать полученный
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.
1) Имеются два кувшина емкостью 3л и 8л. Напишите алгоритм , выполняя который можно набрать из реки 7л воды. ( разрешается пользоваться только этими кувшинами).
2) Разведывательный дозор в составе двух человек подошел к реке. Мост был разрушен а река слишком глубока и широка чтобы переправиться через нее вброд или вплавь. К счастью около берега в маленькой лодке проплывали два мальчика. Как переправиться на этой лодке через реку если она может выдержать либо одного взрослого либо двух мальчиков?