Регистрация
АлександрСмуглиенко
19.12.2020 16:05
Информатика
Есть ответ 👍

Решить по информатике. учусь я в 9 классе,так что многих основных сложных команд мы не изучали,пока вот остановились на while и do. вот сами . 1.составьте программу вычисления 2+4++200. 2.с клавиатуры вводятся шесть целых чисел.определите количество чётных чисел в этом наборе. программы должны быть написаны на языке pascal в программах должен присутствовать цикл с предусловием,то есть while и do

126
326
Посмотреть ответы 2

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

Pudge3228
Pudge3228
4,5(63 оценок)
1. program helloworld;

var summ,i : integer;

  begin

    i: =2;

      while i< =200 do

      begin

              summ : = summ + i;

              i: =i+2;              

      end;

      writeln(summ)

end.

2. 

program helloworld;

var s,i,n: integer;

begin

            while i< 6 do

      begin

              writeln('введите значение число: ');

              readln(s);

              if s mod 2 = 0 then n: =n+1;

              i: =i+1;

              writeln(n);

      end;

              writeln('количество четных: ');

      writeln(n);

      end.

00masha000
00masha000
4,4(56 оценок)

это делитель, заданного натурального числа)

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