fkn+antitotal

7 задача 9 урок

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

6 задача 9 урок

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

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

Первый способ

5 задача 9 урок

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

4 задача 9 урок

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

 var
   a,b,c:integer;
begin
     a:=18;
     b:=19;
     c:=8;
     begin
          if ((a>17)and(b>17)and(c>7))then
             writeln('da')
          else
             writeln('net')
     end;
     readln();
end.

вывод консоли

da

Задача 14 урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Задача 13 урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке.

var i, a, b, c, d, e: integer;
begin
readln(i);
a:= i mod 10;
b:= i div 10 mod 10;
c:= i div 100 mod 10;
d:= i div 1000 mod 10;
e:= i div 10000;
write(a, b, c, d, e);
end.

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

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

var a, b: integer;
begin
a:= 15 mod 10;
b:= 15 div 10;
write(b,' ',a);
end.

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

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

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

Задача 8 урок 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

var i, a: integer;
begin
i:=1;
while (i<=3) do
begin
    readln(a);
    if (a<0) and ((a mod 2)=-1) then 
    begin
        i:=i+1;
        write(a,' ');
    end;
end;
end.

Задача 7 урок 11

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ.

var i: integer;
begin
readln(i);
while (i<>0) do
begin
    if i<>22 then
    begin
        writeln('#');
        readln(i);
    end
    else
        break;
end;
end.