Регистрация
dasha1970
21.05.2020 04:09
Информатика
Есть ответ 👍

Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.определить разность между суммой чисел кратных семи и количеством четных чисел. program dz; var s,k,n,a: integer; begin k: =0; n: =0; while a> =0 do begin writeln('текущее число'); readln(a); if a mod 7=0 then k: =k+a; if a mod 2=0 then n: =n+1; s: =k-n; end; writeln('сумма чисел кратных 7=',n); writeln('количество четных чисел',n); writeln('разность суммы и количества',s); end. найти ошибку ,неправильно выводит сумму чисел кратных семи и разность

142
466
Посмотреть ответы 2

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

sergeyshevchukp06kj3
sergeyshevchukp06kj3
4,6(77 оценок)
В14 строке вместо "n" должно стоять "k"; ну и приличия ради в 15 строке после слова "чисел" поставьте пробел; и в 16 строке после слова "количество" ,тоже, пробел поставьте;  
никотян7
никотян7
4,7(81 оценок)

1) 1байт=8бит

2) 560/8=70символов

  ответ: 70 символов.

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