Вывести числа от 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.
Условие ИЛИ истинно, если хотя бы одно высказывание истинно.
Таблица истинности для условия ИЛИ:
A или B = С1 1 11 0 10 1 10 0 0Приставка НЕ означает истину, если высказывание ложно и ложь, если высказывание истинно (то есть она меняет истину и ложь)
Его можно понимать как высказывание "Первая буква не гласная"
АннаНЕ (Первая буква гласная) 0
Последняя буква гласная 1
0 или 1 = 1
Истина
МаксимНЕ (Первая буква гласная) 1
Последняя буква гласная 0
1 или 0 = 1
Истина
ТатьянаНЕ (Первая буква гласная) 1
Последняя буква гласная 1
1 или 1 = 1
Истина
ЕгорНЕ (Первая буква гласная) 0
Последняя буква гласная 0
0 или 0 = 0
Ложь
АнтонНЕ (Первая буква гласная) 0
Последняя буква гласная 0
0 или 0 = 0
Ложь
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.