Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй. var i:integer; begin writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readln end.
Вывести квадраты чисел от 1 до 10 var i: integer; begin for i:=1 to 10 do writeln(i:4,' ',sqr(i):4); readln end.
Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие) var i,n:integer; begin writeln('Введите кол-во повторов числа: '); readln(n); for i:=1 to n do writeln('5'); readln end.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
Приблизительно как то так, но не ручаюсь за правельность
Если Y1
То если Y2
То S1
Иначе S2
S4
Иначе если Y3
То нц
S1
Кц
Иначе S
Все
Все
Все