Задание 2. Составьте программу. Составьте программу, определяющую, кто из двух подруг старше Маша или Саша, или они ровесники.
5-9 класс
|
m – возраст Маши
Pascal ABC
var m, s : integer;
begin
write('Введите возраст Маши ');
readln(m);
write('Введите возраст Саши ');
readln(s);
If s > m then writeln('Саша старше Маши');
If s < m then writeln('Маша старше Саши');
If m = s then writeln('Саша и Маша ровесники')
end.
turbo pascal.
Program qf;
uses crt;
var m,s:integer;
begin
clrscr;
writeln('введи возраст Маши');
readln(m);
writeln('введи возраст Саши');
readln(s);
if s>m then writeln('Саша старше Маши')
else
if m>s then writeln('Маша старше Саши')
else
if m=s then writeln('Саша и Маша ровесники');
readln;
end.
Другие вопросы из категории
прикладной программы.2.ИЗОБРАЖЕНИЕ НА ЭКРАНЕ МОНИТОРА ГОТОВОГО К РАБОТЕ
КОМПЬЮТЕРА(ДВА СЛОВА)3.ЕДИНИЦА ИНФОРМАЦИИ,РАВНАЯ ВОСЬМИ БИТАМ.4.ГРУППА
ФАЙЛОВ,ИМЕЮЩАЯ ИМЯ;КОНТЕЙНЕР ДЛЯ ФАЙЛОВ.5.ПРЯМОУГОЛЬНАЯ
ОБЛАСТЬ,ЗАНИМАЕМАЯ НА РАБОЧЕМ СТОЛЕ РАБОТАЮЩЕЙ
ПРОГРАММОЙ6.ФАЙЛ,СОДЕРЖАЩИЙ ДАННЫЕ(РИСУНКИ,ТЕКСТЫ)7
слово палиндромом (перевертышем, то есть одинаково читается слева направо и
наоборот).
Пример палиндрома: КАЗАК.
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
программу,определяющую большее из двух чисел. Проверить работу программы для всевозможных комбинаций
2. Составить программу удвоения большего из двух чисел.
3. Написать программу вычисления произведения всех двузначных четных чисел.
4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.
Все в Pascal. Очень прошу помочь
Ид.Вес-Рост в см -100
Значение роста вводится с клавиатуры. Результат вывести в следующем виде:
Для мужчины ростом 165 см идеальный вес равен 65 кг.
2.По аналогии с заданием №1 составить программу, определяющую идеальный вес женщины по следующей формуле:
Ид.Вес=Рост в см - 100 -10% (от Рост в см - 100)