Регистрация
vasa2283
09.05.2022 22:57
Информатика
Есть ответ 👍

Посчитай на языке Паскаль 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.​

199
422
Посмотреть ответы 2

Ответы на вопрос:

Александра110799
Александра110799
4,8(22 оценок)

Лплплплплплплпоаоплпоалбаьааьплрдоээордплплплшеалооааолршерщщоожожрдлроаоаоаоаао

Объяснение:

Пешепрлрддолррдлрлрпддплплпоаоаоалплппллалплппшпшешшешегпгагагаганаоашалплррллплпоплплпопопоплпллплпплрлрллрлплппллпиллплплрлплплпшплпгапшопоппоопоаоаоаоа


Посчитай на языке Паскаль 1 задачаvar s,k: integer; begin    s = 0;   for k := 3 to 7 do      s = s
kristinka078
kristinka078
4,5(37 оценок)

ответ:

отдел +;

использует приём из "", вывод из "";

пер

  n, сумма, сч, скор, макс: цел;

указ

  сумма : = 0;

  макс : = 0;

  вывод.цепь("введите число автомобилей: ");

  n : = приём.число();

  если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе

    вывод.цепь("^введите скорости: ^");

    от сч : = 1 до n вып

      скор : = приём.число();

      если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;

      увеличить(сумма, скор);

      если скор > макс то макс : = скор кон;

      вывод.цепь(" ")

    кон

  кон;

  вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);

  если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон

кон .

объяснение:

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