Для изображение знака числа в машине приняты следующие обозначения: а. + =0 и - = 1 в. + =0; 1 с. - =0; 1 d. - = 0 и += 1
Ответы
1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
if a>b then writeln(a)
else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
write('Enter c: ');
read(c);
if (a<b) and (b<c) then writeln(a);
if (b<c) and (c<a) then writeln(b)
else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
write('Enter a: ');
read(a);
if (a mod 3) = 0 then writeln('Кратно')
else writeln('Не кратно');
end.
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
if a>b then writeln(a)
else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
write('Enter c: ');
read(c);
if (a<b) and (b<c) then writeln(a);
if (b<c) and (c<a) then writeln(b)
else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
write('Enter a: ');
read(a);
if (a mod 3) = 0 then writeln('Кратно')
else writeln('Не кратно');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Ребят с решением! Восстановите IP - адрес по его фрагментам : 2.132 20 .82 2.19
Автор: ekattatarenko
Дано слово . добавить к нему вначале и конце столько звездочек , сколько букв в этом слове .
Автор: Avdeeva Yelizaveta
Кто решит тому дам почти все свои балыы
Автор: timonina29
C++ дан текстовый файл. напечатать символы с k1 по k2 в каждой строке. , .
Автор: apro3444595
Что хранится в ячейке оперативной памяти
Автор: office
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
if a>b then writeln(a)
else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
write('Enter a: ');
read(a);
write('Enter b: ');
read(b);
write('Enter c: ');
read(c);
if (a<b) and (b<c) then writeln(a);
if (b<c) and (c<a) then writeln(b)
else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
write('Enter a: ');
read(a);
if (a mod 3) = 0 then writeln('Кратно')
else writeln('Не кратно');
end.