fkn+antitotal

урок 3 задача 21

Васе m лет, а Паше k лет. Напишите программу, в которая считает их разницу между их суммарным возрастом и разностью их возрастов. Конкретные значения возрастов этих двух человек задайте в коде в виде двух переменных, которым присвойте значения целочисленных литералов. Результат запишите в третью переменную и выведите значение на экран.

;

var
m: integer;
k :integer;
b :integer;
begin
 m:=12 ;
 k:=10 ;

 writeln(m+k);
 readln();    
end

Получите от пользователя целое число (не более 100), посчитайте результат умножения этого числа на 7 и выведите этот результат на экран (в консоль).

;

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

var
b :integer;

begin
 writeln('ведите значение переменой и мы умножим его на 7');

 readln(b);
 writeln(b*7);

 readln();
end.       

Урок 5 задача 7:

Получите от пользователя целое число (не более 100), посчитайте результат умножения этого числа на 7 и выведите этот результат на экран (в консоль).

program u7;
var
e :integer;
begin
 writeln('введи любое число не больше 100 и нажми ентер и программа умнежет его на 7');
 readln(e);
 writeln(e*7);
 readln();
end.      

Задача 21 урок 3:

Васе m лет, а Паше k лет. Напишите программу, в которая считает их разницу между их суммарным возрастом и разностью их возрастов. Конкретные значения возрастов этих двух человек задайте в коде в виде двух переменных, которым присвойте значения целочисленных литералов. Результат запишите в третью переменную и выведите значение на экран.

Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn , где pi — число, а qi — знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики.

Посчитайте результат за одно прочтение строки, без использования массивов 

задание 10 урок 18

Задача 1 урок 10.2

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.

таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Решение

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

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i:integer;
begin

  for i:=1 to 100 do
   if(i mod 7) = 0 then
    write(i,' ');
readln();
end.

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

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Задача 6 урок 10.1

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

1 вариант решения