- Главная
- /
- Информатика
- /
- Составить программу вычис...
Составить программу вычисления среднего , набранного спортсменом - многоборцем (предусмотреть 3 вида спорта) это паскаль
Ответы
program srednball;
var a,b,d : integer;
c : real;
begin
writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c: =(a+b+d)/3;
writeln (' srednii ball= ', c: 4: 2);
readln;
end.
1. program ostatok;
uses crt;
var a,b,ost: real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
ost: =a mod b;
write('ostatok ot delenia a na b raven ',ost);
readln;
end.
2. program modul;
uses crt;
var a,b,c,d: real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
c: =a-b;
if c> 0 then
begin
a: =abs(a+b);
b: =abs((a-b)/2);
write('a= ',a,'b= ',b);
end
else
b: =abs(a+b);
a: =abs((b-a)/2);
write('a= ',a,'b= ',b);
end;
readln;
end.
путь к файлу вместе с именем файла называют полным именем файла. то что вы написали и есть полное имя файла. а вот собственно имя - это proba и расширение txt.