A = int(input()) b = int(input))
c = int(input())
v: = a * bc
S = 2 (a * b + b * c + ac)
print( V, , S)
a = int(input())
b = int(input())
c = int(input())
V = a * b * c
S = 2 (a * b + b * c + a*c)
print( V,S)
Найдите ошибку и исправьте.
побыстрее. Буду очень благодарен.
VAR
a,b:integer;
BEGIN
writeln('a). Введите два целых числа');
write('Первое число: '); readln(a);
write('Второе число: '); readln(b);
if (a=b) then
writeln('Числа равны.')
else if (a<b) then
writeln('Наименьшее число = ', a)
else
writeln('Наименьшее число = ', b);
writeln('');
write('б). Введите число: '); readln(a);
if (a>0) then begin
b:=a-30;
writeln('Число неотрицательное. ', a,'-30=',b);
end else if (a<0) then begin
b:=a+70;
writeln('Число отрицательное. ', a,'+70=',b);
end else
writeln('Число равно 0');
writeln('');
write('с). Введите целое число: '); readln(a);
if odd(a) then
writeln('Число ', a,' нечетное')
else
writeln('Число ', a,' четное');
END.
// Внимание! Если программа не работает, обновите версию!
begin
var k:=20;
var a:=ArrRandom(k,-50,50); a.Println;
var n:=ReadInteger('Введите число циклических сдвигов влево:') mod k;
if n>0 then a:=(a[n:]+a[:n]).ToArray;
a.Println
end.
Примеры
-31 -27 -45 21 -49 14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35
Введите число циклических сдвигов влево: 5
14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35 -31 -27 -45 21 -49
-22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43
Введите число циклических сдвигов влево: 0
-22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43
-18 -42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38
Введите число циклических сдвигов влево: 21
-42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38 -18
-36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44
Введите число циклических сдвигов влево: -1
-36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44