ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.
( 1Мбайт = 1 000 000 байт ) приставка Мега = 1 000 000.
8Мбайт = 8 000 000 байт
Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
<span>end.</span>
Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).
Program A1;
var a,b,c,i:integer;
begin
write('Enter the a: ');
read(a);
writeln('Enter the b: ');
read(b);
с:=0;
for i:=1 to a Do
c:=c+b;
writeln('a*b=',c:5:0);
end.
Объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.
i=1 c=5+0;
i=2 c=5+5;
i=3 c=10+5; //c=15
Вот и есть ответ: 5*3=15.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>