Срочно. Помогите мне.
5-9 класс
|
номера 3 и 4
------------ 3 -------------
var
n:real;
begin
Write('Введите число: ');
Readln(n);
if n>0 then Writeln(sqr(n))
else Writeln(0)
end.
Тестовое решение:
Введите число: 14
196
------------------- 4 -----------------
var
a,b,c,m:real;
begin
Write('Введите через пробел три числа: ');
Readln(a,b,c);
if a>b then
if a>c then m:=a else m:=c
else
if b>c then m:=b else m:=c;
Writeln('Максимум: ',m)
end.
Тестовое решение:
Введите через пробел три числа: 6 8 -2
Максимум: 8
Другие вопросы из категории
причём разных специальностей лётчи танкист артиллерист миномётчик сапёр и связист Определите специальность и звание каждого из шахматистов по следующим данным:
1 в первом туре лейтенант выйграл у лётчика майор у танкиста а сержант у миномётчика
2 во втором туре капитан выйграл у танкиста
3 в третьем и четвёртом турах миномётчик из-за болезни не учавствовал в турнире поэтому свободными от игры оказались капитан и ефрейтор
4 в четвёртом туре майор выйграл у связиста
5 победителями турнира оказались лейтенант и майо а хуже всех выступил сапёр.
Составте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов равных 1.
Читайте также
а) Информатика - это...
б) Информация - это...
в) Компьютер - это...
г) Файл - это...
д) Текстовый редактор - это...
е) Графический редактор - это...
срочно помогите плизззз
Одномерный массив из 6 элементов с номерами от 3 до 8 заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива,а 4-ый элемент увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
треугольника. При выполнении задания, я пишу в ячейке, но текст для неё большой и переходит в другую ячейку. Помогите мне пожалуйста, что нужно сделать, чтобы всё поместилось в одну ячейку?
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может