var
n,m:integer;
begin
writeln('Задача 1');
readln(n,m);
if n>=m then
writeln('Неправильная')
else writeln('Правильная');
writeln;
writeln('Задача 2');
n:=random(20); m:=random(20);
writeln(n,' ',m);
if n mod m = 0 then
writeln('Делится нацело')
else writeln('Не делится нацело');
writeln;
writeln('Задача 3');
readln(n,m);
if n<=m then
if n=m then writeln('Равные')
else writeln(n)
else writeln(m);
end.
Если моё решение вам, пометьте его лучшим !
Объяснение:
#include <iostream>
using namespace std;
int main()
{
//1 - 2 задания
setlocale(LC_ALL, "Russian");
system("color A");
int A,a;
cout << "Введите число: ";
cin >> a;
while (a--)
cout << a << ' ';
cout << endl;
//2
cout << "Введите число: ";
cin >> A;
A -= !(A & 1) + 2;
while ((A += 2) < 1000)
{
cout << A << ' ';
}
}
//
//3 задание
#include <iostream>
using namespace std;
int main()
{
for (int i = 1; i < 10; i += 2)
cout << i * i << ' ';
}
begin
readln (m);
readln (b); // Сколько будет кусков
for i:=1 to b do
begin
readln(c);
m:=m-c;
end;
If m<0 then writeln('Ткани не хватит');
end.