fkn+antitotal

Задача 12 Урок 11

{Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)}

begin
write(15 div 15, ' ');
write(15 mod 10);
readln();
end.

http://fkn.ktu10.com/?q=node/8539
У вас есть три числа (три переменные) найдите их медиану(link is external)

http://fkn.ktu10.com/?q=node/8539
Есть программа:

var z,s:integer;
f:boolean;
begin
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;

http://fkn.ktu10.com/?q=node/8539
Есть программа:

Задача 11 Урок 11

Вывести на экран все числа от 4 до 100 с шагом 4

var i:integer;
begin
i:=4;
while i<=100 do
  begin
   write(i,' ');
   i:=i+4;
  end;
readln
end.

http://fkn.ktu10.com/?q=node/8539
Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

http://fkn.ktu10.com/?q=node/8539

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
1. сумма баллов Коли и Миши больше 20
2. и и произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит четыре числа, найдите из них максимальное.

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and (все опараторы if должны быть в полной форме).
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

program task5_lesson9;
var
  a,b:integer;
begin
  writeln('Enter two numbers, we`ll find the biggest :');
  readln(a,b);
  if a<b then
     writeln(b)
  else
    writeln(a);
readln();
end.