Ответ: а и с тк формат bmp свойственен для рисунков.
Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
var a:integer;
var s1,s2:string;
begin
inc(a);
write('Vvedite slovo: ');
readln(s1);
repeat
s2:=s2+s1[a];
a:=a+2;
until(a>length(s1));
writeln(s2);
readln;
end.
Eсли задана точность то зачем задавать n? И наоборот.
Uses crt;var f,a,d,n,z:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число D');readln (d);writeln ('Введите число N');readln (n);writeln ('Введите число Z');readln (z);F:=(z*a+d*(n-1))/2;writeln('Ответ: ',f:2:1);end.