Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
<span>end.</span>
Ответ:
Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);
1байт = 256 значений. от 0 до 255
значит N = 255 здесь
var c, s, n, k : integer;
x,d :longint;
begin
writeln('введите x');
readln (x);
k := 0; //количество четных цифр в числе
while x > 0 do //пока х не равен нолю
begin
if (x mod 2) = 0 then k := k + 1; //проверяем четна ли последняя цифра числа
//+1 к кол-ву четных цифр
x := x div 10; //сокращаем на один знак и повторяем операцию
end;
if k >= 2 then
writeln('Да') //если кол-во четных цифр больше 2
//выводим 2, иначе не выводим ничего
end.
/* Вот написал сам, но то что пытался сделать ты не понял */