Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
РЕШЕНИЕ
program task_1_lesson_16;
var
k: char;
s: string;
i, count: integer;
begin
count := 0;
writeln('vvedite simvol : ');
readln(k);
writeln('vvedite stro-ku : ');
readln(s);
for i := 1 to length(s) do
if s[i] = k then
count += 1;
writeln('simvol ', k,' vstrechaetsy v stokr ', count,' raz');
readln()
end.
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли M раз выведете на экран числа от 1 до N с помощью вложенных циклов.
program project1;
var i,j,m,n:integer;
begin
write('vvedite M: '); readln(m);
write('vvedite N: '); readln(n);
for i:=1 to m do
begin
for j:=1 to n do
write(j,' ');
writeln();
end;
readln();
end.
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
Модифицируйте задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
Выведите на экран таблицу умножения используя один цикл while и один repeat-until .
var i, j: integer;
begin
i := 1;
j := 1;
while(i < 10) do
begin
repeat
writeln(i, ' x ', j, ' = ', i*j);
j := j + 1;
until(j > 9);
j := 1;
i := i + 1;
writeln();
end;
end.
Выведите на экран таблицу умножения используя только циклы вида while.
var i, j: integer;
begin
i := 1;
j := 1;
while(i <10) do
begin
while(j < 10) do
begin
writeln(i, ' x ', j, ' = ', i*j);
j := j + 1;
end;
j := 1;
i := i + 1;
writeln();
end;
end.
