Помогите сделать программу ** Паскале! 9 класс

0 голосов
31 просмотров

Помогите сделать программу на Паскале! 9 класс


image

Информатика (17 баллов) | 31 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=Range(10,100);
  s.Where(p->p mod 10=0).Println; // а
  Writeln(s.Where(p->(p mod 3=0) and (p mod 7 <> 0)).Count); // б
  Writeln(s.Where(p->p mod 5=0).Average) // в
end.

Результат
10 20 30 40 50 60 70 80 90 100
26
55

Замечание: для решения a), б) или в) нужна лишь одна из помеченных соответствующих пунктом строк.
(150k баллов)
0 голосов

А)var I:integer;
begin 
for I := 10 to 100 do
if i mod 10=0 then   
 writeln(i);   
 readln;
end.          
 b) var I,k:integer;
begin
k:=0; 
for I := 10 to 100 do
if (i mod 3=0 ) and (i mod 7<>0)then 
   inc(k); 
  writeln(k); 
   readln;
end.                                                                                                                
c)var I,k,sum:integer;
begin
k:=0; sum:=0;
 for I := 10 to 100 do 
begin
if i mod 5=0 then
begin 
 sum:=sum+i; 
 inc(k);
end; 
end;
    writeln(sum/k);
    readln;
end.

(928 баллов)