Бронислав
6 год назад
Срочно, помогите
Найдите кол-во целых чисел от а до б включительно, которые не делятся на 3
ОТВЕТЫ
Викулович
Aug 1, 2019
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
var a,b:integer;
Write(Введите a,b: ); Read(a,b);
Writeln(Чисел, не делящихся на 3, на [,a,;,b,]- ,
Range(a,b).Where(x-gt;x mod 3lt;gt;0).Count)
end.
Пример
Введите a,b: 12 24
Чисел, не делящихся на 3, на [12;24]- 8
begin
var a,b:integer;
Write(Введите a,b: ); Read(a,b);
Writeln(Чисел, не делящихся на 3, на [,a,;,b,]- ,
Range(a,b).Where(x-gt;x mod 3lt;gt;0).Count)
end.
Пример
Введите a,b: 12 24
Чисел, не делящихся на 3, на [12;24]- 8
123
