Паскаль:
5-9 класс
|
1. Вывести название дня недели по его номеру.
2. Найти минимальное число из двух чисел.
3. Найти большее с двух чисел, и к найденному добавить - один.
З.Ы. в приложенном файле я сделал первые два задания, 3-е не знаю как делать. Но не уверен так же в правильности первых двух. Прошу помощи, спасибо!
Program zadacha;
var
i: byte;
begin
write ('введите номер дня недели: ');
read (i);
case i of
1: writeln ('Monday');
2: writeln ('Tuesday');
3: writeln ('Wednesday');
4: writeln ('Thursday');
5: writeln ('Friday');
6: writeln ('Saturday');
7: writeln ('Sunday');
end;
end.
3.)
Program maximal;
var
a, b : integer;
begin
write ('Введите первое число а=');
readln (a);
write ('Введите второе число b=');
readln (b);
if a > b then writeln(a+1) else writeln (b+1);
end.
2)
Другие вопросы из категории
равнобедренный треугольник.
Равносторонний треугольник и равнобедренный треугольник
прямоугольник и ромб
прямоугольник и квадрат
квадрат и прямоугольник
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i