Складіть проект для малювання чотирьох квадратів, розміщених поруч. Довжина сторони першого з них дорівнює а кроків, а довжина сторони кожного наступного – на b кроків більша за довжину сторони попереднього. Значення довжин сторін першого квадрата (а) та на скільки довжина кожного наступного квадрата більша (b), повинен вводити користувач.
готово. паскаль
Объяснение:
Задание 1
с = 0
Задание 2
var
n, m, c: integer;
begin
Write('Введите числа m и n >> ');
ReadLn(m, n);
if (m mod 5 <> 0) or (m < n) then
c := (m mod 10) + (n mod 10);
WriteLn('Сумма последних цифр этих чисел равна ', c);
end.
Задание 3
var
a, b, c: integer;
begin
Write('Введите числа a, b и c >> ');
ReadLn(a, b, c);
if (b < 50) and (b > 20) and (c < a) then
begin
WriteLn('Сумма этих чисел равна ', a + b + c);
WriteLn('Произведение этих чисел равно ', a * b * c);
end;
end.
Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
Textcolor (12);
For i:=1 to 3 do
Begin
A[i]:=random(100);
Write(A[i]:4);
End;
Writeln;
min:=a[1];
for i:=1 to 3 do
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
write(' ');
for i:=1 to 3 do
begin
if a[i]=max then
Begin
textcolor(12);
write(max:3);
End;
if a[i]=min then
Begin
textcolor(9);
write(min:3);
End;
if (a[i]<>min) and (A[i]<>max) then
Begin
textcolor(14);
write(A[i]:3);
End;
End;
readln;
end.
Объяснение: