Регистрация
Sezimturatbeko
05.06.2020 04:12
Информатика
Есть ответ 👍

Решите 2 в паскале! ! 1) вывести на экран нарутальные числа от 1 до 100, которые при делении на 6 в остатке 4, и их колличество. конец программы: sumchis : =0; for i: 1 to 100 if i mod 6 = 4 then begin writeln (i); sumchis : =sumchis +1; end. написать надо начало программы! 2) написать программу, которая выводит натуральные числа до 10 000 включительно, которые при делении на 17 остаток 11 или b

225
467
Посмотреть ответы 2

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

матвей468
матвей468
4,5(17 оценок)

1)

var sumchis, i: integer;

begin

for i: =1 to 100 do begin

if i mod 6 =4 then

begin

writeln(i);

sumchis: =sumchis+1;

end;

end;

writeln('колличество чисел', sumchis);

end.

 

2)

var sumchis, i: integer;

begin

for i: =1 to 10000 do begin

if i mod 17 =11 then

begin

writeln(i);

sumchis: =sumchis+1;

end;

end;

writeln('колличество чисел', sumchis);

end.

 

как сделать чтобы остаток равнялся b - не знаю, так как программа начинает считывать её как за переменную, если только b определить как переменную и в неё внести значение какое-то.

 

 

5655к
5655к
4,5(55 оценок)
#include stdio.h int main () {     int x, sum=0;     scanf ("%d", & x);     while (x! =0) {             sum+=x%10;               x/=10;     }     return 0; }

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