Вывести числа от 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 - Боря, v - Вася, g - Галя, d - Даша, i - Иван. a>b, v>g, d<i, v<a, d>b; Мы знаем, что а>b, значит ,что b<v; Мы знаем, что d>b, значит ,что b<i; Мы знаем, что v>g и v<a, значит ,что b<v; Следовательно мы нашли обладателя меньшей флешки. Им стал Боря. Раз b самый меньший, то в дальнейших расчетах его можно не использовать. Мы знаем, что a>v, а это значит ,что a>g т.к. v>g ! Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.
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, v>g, d<i, v<a, d>b;
Мы знаем, что а>b, значит ,что b<v;
Мы знаем, что d>b, значит ,что b<i;
Мы знаем, что v>g и v<a, значит ,что b<v;
Следовательно мы нашли обладателя меньшей флешки. Им стал Боря.
Раз b самый меньший, то в дальнейших расчетах его можно не использовать.
Мы знаем, что a>v, а это значит ,что a>g т.к. v>g !
Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.