16.12.2008, 02:04
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме:
6962560
Репутация:
536
|
|
Сообщение от MRAK9
НУ ПОЖАЛУЙСТА......HELP!!!!
задачка... точнее три... для вас это пару пустяков... на паскале:
1-определить делится ли число N на n нацело
2-вводим с клавиатуры дробное N и вычисляем среднее арифметическое
3-найти сумму вводимых с клавиатуры чисел конец ввода число 0
1)
Program delenie;
uses crt;
var n,m:integer;
x: real;
begin
clrscr;
write('N=');
readln(n);
write('n=');
readln(m);
x:=n mod m;
writeln;
if x=0 then
writeln(n,' delitsya nacelo na ',m)
else
writeln(n,' NE delitsya nacelo na ',m);
readln;
end.
2) не понял условия... Среднее арифметическое чего..??!
3)
Program summa;
uses crt;
var n,m,s:integer;
x: real;
begin
clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA, CyMMy KoToPblX HaDO y3HATb');
repeat
readln(n);
s:=s+n;
until n=0;
writeln('CyMMA = ',s);
readln;
end.
Последний раз редактировалось Fepsis; 16.12.2008 в 02:26..
|
|
|