2.2 Гб = 2.2×1024 Мб = 2252.8 Мб
2252.8 / 700 ≈ 3 диска
var
i, n : byte;
begin
repeat
write('введите n: ');
readln(n)
until n in [1..9];
writeln('таблица умножения');
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
writeln('таблица сложения');
for i := 1 to 9 do
writeln(n, ' + ', i, ' = ', n + i);
readln
end.
<span>#include <iostream>
using namespace std;
int main()
{
int n, a, b, c;
cout << "n = ", cin >> n, cout << <span>"\n"</span>;
cout << "a, b, c: ", cin >> a >> b >> c, cout << <span>"\n"</span>;
if (n / 100 == a) cout << <span>"Первая цифра совпадает\n"</span>;
else cout << <span>"Первая цифра не совпадает\n"</span>;
if (n / 10 % 10 == b) cout << <span>"Вторая цифра совпадает\n"</span>;
else cout << <span>"Вторая цифра не совпадает\n"</span>;
if (n % 10 == c) cout << <span>"Третья цифра совпадает\n"</span>;
else cout << <span>"Третья цифра не совпадает\n"</span>;
return 0;
<span>}
Пример:
</span><span>n = 385
a, b, c: 5 8 1
Первая цифра не совпадает
Вторая цифра совпадает
Третья цифра не совпадает</span></span>
Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}
Код полностью
//PascalABC.NET 3.1 сборка 1239
var
a, b, c: integer;
begin
a := 9;
b := 3;
c := 1;
while not (a = b) do
begin
c := c + (a - b);
a := a - 1;
b := b + 1;
{Println(a, b, c);}
end;
writeln('c=',c);
{2}
a := 10;
b := 2;
while not (a <5) do
begin
b := b + 10-a;
a := a - 1;
{Println(a, b, c);}
end;
writeln('b=',b);
end.
Вывод программы
c=13
b=17