Посчитай на языке Паскаль 1 задача
var s,k: integer;
begin
   s = 0;
   for k := 3 to 7 do
      s = s + 6;
   writeln(s);
end.
2 задача
var
a, b, n: longint;
begin
readln(n);

a := n mod 10;
n := n div 10;
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;
writeln(a+b);
readln;
end.
3 задача
var a,b,c,d:integer;
begin
readln(a);
d := a mod 10;
repeat
b := a mod 10;
a := a div 10;
until a=0;
c := d+b;
writeln(c);
end.​

Популярно: Информатика

• 

  antipingv2004

  30.08.2020 17:52
  Выберите правильно написанные условные операторы и напишите их...
• 

  sofiyabutina667

  17.07.2020 18:29
  мне надо вираз записати мовою с++ мой вариант 19 а другой файл...
• 

  ренат76

  12.09.2020 16:16
  Напишите какие професии где работую с компютером...
• 

  kiraн1999

  18.02.2020 23:58
  Какое значение будет иметь переменная а после выполнения следующих...
• 

  elinashovhalova

  12.02.2023 12:28
  Написать программу которая вычисляет переменную d по формуле:...
• 

  АnnaaaaA

  07.12.2021 03:23
  Даны три массива слов s11, , s115 ; s21, , s210 ; s31, , s312....
• 

  Besta69

  10.07.2022 06:30
  Напишите системное и прикладное по пк...
• 

  olykylak2551

  24.12.2020 14:34
  Примеры технических устройств и систем предназначенных для сбора...
• 

  tamaravlg

  19.02.2021 05:29
  2. Распределите и запишите в таблицу причины падения Римской...
• 

  penguin2517

  24.11.2022 00:29
  фул 3 задания если вам не сложно​...