Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).
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.
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
#include <iostream>
using namespace std;
int main() {
<span> int a;
cin >> a;
if (a==3)
{
cout << "Win";
}
else </span>if (a==0)
{
cout << "Defeat";
}
else if (a==1)
{
cout << "Draw";
}
else cout << "Unknown";
<span> return 0;
</span>}