Var n,i,s,k,p:integer; begin p:=1; write('Введите число '); readln(n); writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2); for i:=1 to n do begin if (i mod 3 = 0) and (i mod 2 = 0) then begin s:=s+i; k:=k+1; end; p:=p*i end; writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k); writeln(' произведение чисел от 1 до ',N,' = ',p); end.
Тестовое решение: Введите число 10 среднее арифметическое от 1 до 10 = 5.5 среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6 произведение чисел от 1 до 10 = 3628800
C case Var a:integer; Begin Write('Введите число от 5 до 9: '); readln(a); case a of 5:writeln('Вы ввели число "пять"'); 6:writeln('Вы ввели число "шесть"'); 7:writeln('Вы ввели число "семь"'); 8:writeln('Вы ввели число "восемь"'); 9:writeln('Вы ввели число "девять"') end;
readln End.
С if Var a:integer; Begin Write('Введите число от 5 до 9: '); readln(a); if a=5 then writeln('Вы ввели число "пять"'); if a=6 then writeln('Вы ввели число "шесть"'); if a=7 then writeln('Вы ввели число "семь"'); if a=8 then writeln('Вы ввели число "восемь"'); if a=9 then writeln('Вы ввели число "девять"');
Program BiFi;
Var x:real;
Begin
readln(x);
if x>3 then writeln(x*x+5);
else writeln(x-8);
readln;
end.