написать программу которая определяет максимальное значение 2 вещественных чисел в pascal
5-9 класс
|
Program vewestvennoemax;
var max,a,b:real;
begin
readln(a,b);
if a>b then max:=a else max:=b;
writeln('Maksimalnoe= ',max);
end.
Другие вопросы из категории
Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
Дополнить программу недостающими командами
Подсчитать количество букв “а” в тексте (русских и латинских; прописных и заглавных).
program zadacha1;
var t:string;
b:string[1];
n,k,i:integer;
Begin
writeln('Введите текст');
…………………………;
n:=length(t);
k:=0;
for i:=1 to n do
begin
b:=copy(t,i,1);
if ……………………………then k:=k+1;
end;
writeln('k=',k);
End.
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
щелчком по кнопке ......открывается окно.
все программы -важный пункт.........
Читайте также
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.