Помогите написать прогу!
PASCAL
1)Пусть a=17, b=5. Найти div, mod и sgr(b)
2)Пусть a=48, b=6. Найти div, mod и sgr(а)
3)Пусть a=25, b=7. Найти div, mod,sgr(b) и sgrt (a)
Ответы
Ответ дал:
0
var a,b:integer;
begin
a:=17; b:=5;
writeln(a div b,' ',a mod b,' ',sqr(b));
a:=48; b:=6;
writeln(a div b,' ',a mod b,' ',sqr(a));
a:=25; b:=7;
writeln(a div b,' ',a mod b,' ',sqr(b),' ',sqrt(a));
end.
Результат:
3 2 25
8 0 2304
3 4 49 5
begin
a:=17; b:=5;
writeln(a div b,' ',a mod b,' ',sqr(b));
a:=48; b:=6;
writeln(a div b,' ',a mod b,' ',sqr(a));
a:=25; b:=7;
writeln(a div b,' ',a mod b,' ',sqr(b),' ',sqrt(a));
end.
Результат:
3 2 25
8 0 2304
3 4 49 5
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад