1. Если числа a,b,c,d вводятся с клавиатуры, то их просто нужно проверить на принадлежность интервалу (1;30), но не присваивать им 1! 2. Циклы while не нужны, они зацикливают программу. 3. Так как увеличение значения k и суммы нужно выполнять одновременно, то есть при выполнении условия, то нужно было эти команды заключить в операторные скобки begin ... end Примерный вариант программы:
program z; var a,b,c,d,k,s:integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); k:=0; s:=0; if (a>1) and (a<30) and (a mod 3=0) then begin k:=k+1; s:=s+a; end; if (b>1) and (b<30) and (b mod 3=0) then begin k:=k+1; s:=s+b; end; if (c>1) and (c<30) and (c mod 3=0) then begin k:=k+1; s:=s+c; end; if (d>1) and (d<30) and (d mod 3=0) then begin k:=k+1; s:=s+d; end; if k=0 then writeln(Not solution') else writeln(s/k); end.
1. переговоры в интернете не требуют встречи лицом к лицу, поэтому это экономит на переезд в другой город(страну) 2.дистанционное обучение- самообучение не находясь в школе Минусы- большую часть программы ребенок может не понять ребенок Плюсы- ребенок сможет пройти всю программу обучения не тратя деньги и энергию на поход в школу пешком или на автобусе Очное- ребенок учиться лицом к лицу с учителями и своими сверсниками минусы- трата время и денег на путь в школу плюсы- с объяснением учителей ребенок понимает большуу часть школьной программы
2. Циклы while не нужны, они зацикливают программу.
3. Так как увеличение значения k и суммы нужно выполнять одновременно, то есть при выполнении условия, то нужно было эти команды заключить в операторные скобки begin ... end
Примерный вариант программы:
program z;
var a,b,c,d,k,s:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
k:=0; s:=0;
if (a>1) and (a<30) and (a mod 3=0) then begin k:=k+1; s:=s+a; end;
if (b>1) and (b<30) and (b mod 3=0) then begin k:=k+1; s:=s+b; end;
if (c>1) and (c<30) and (c mod 3=0) then begin k:=k+1; s:=s+c; end;
if (d>1) and (d<30) and (d mod 3=0) then begin k:=k+1; s:=s+d; end;
if k=0 then writeln(Not solution') else writeln(s/k);
end.