сервис вопросов и ответовнаписать в программе паскаль
5-9 класс|
|
Прикрепленные изображения
Лера9002
29 июля 2014 г., 17:51:55 (9 лет назад)
Sdefwefqdfwe
29 июля 2014 г., 18:43:55 (9 лет назад)
var
a,b: integer;
begin
readln(a,b);
if a < b then
begin
writeln(b div a);
write(b mod a)
end
else
begin
writeln(a div b);
write(a mod b)
end
end.
Ванда2106
29 июля 2014 г., 20:53:45 (9 лет назад)
a,b,chastnoe,ostatok:integer;
begin
readln (a,b);
if (a>b) then
begin
chastnoe:=(a div b);
ostatok:=(a mod b);
end;
if (b>a) then
begin
chastnoe:=(b div a);
ostatok:=(a mod b);
end;
writeln (chastnoe);
writeln (ostatok);
end.
Ответить
Другие вопросы из категории
Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s:=0;
for k:=4 to 10 do
s:=s+11;
write(s);
End.
из 3 монет одинакового достоинства одна фальшивая(легкая).Как её найти с помощью одного взвешивания на чашечных весах без гирь?
представте с помощью блок-схемы алгоритм решения
Одна компания выпустила лотерейные
билеты трёх разрядов: для молодежи, для
взрослых и для стариков.
Читайте также
Написать в программе Паскаль программу:
Вывести сначала положительные числа из отрезка [a;b], а потом отрицательные числа из отрезка [a;b] и количество положительных и отрицательных чисел из отрезка [a;b]
написать в программе паскаль:
вычислить и напечатать результат выражения z при c=15, d =5
z=5(c+2dв кубе)дробь c+d
Вы находитесь на странице вопроса "написать в программе паскаль", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.