Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).
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.
Program slova; - название программы
var - раздел описания переменных
d : string объявляем переменную, которая называется "d" с типо string(строка)
i, k : integer; объявляем еще 2 переменные с именами "i" и "k", тип у них целочисленный.
begin - начало исполнения программы (в данном случае)
write('Введите предложение'); - Вывод на экран сообщения: Введите предложение
read(d) - даем возможность пользователю ввести строку с клавиатуры, и сохраняем ее в переменную d
for i := 1 to length(d) do - цикл, который будет идти от 1, до длины строки (d), короче говоря, до последнего символа.
if (d[i] = ' ' then - условие, которое ищет пробел в предложении
k := k + 1; увеличиваем переменную на 1, если условие выполняется.
writeln('В вашем предложении:', k+1) вывод на экран сообщения "В вашем предложении", а затем вывод переменой k увеличенной на 1.
