1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.

2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.

3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.

0 0

1 год назад

Помогите ответить на тест:1. Алгоритмом является:1).последовательность команд, которую может выполнить исполнитель; 2).система к

Beer1988

1) 1
2) 3
3) 2
4)если там один ответ то 2,если допускается несколько то 1 и 2
5) овал
6) 2
7) 2
8) 3
9)Литерный тип обозначается именем char (от слова character - символ, знак).
Значением переменной литерного типа является один символ из набора символов, определяемого конкретной реализацией. для любого набора символов (литер)все символы фиксированы и упорядочены;включены все прописные буквы латинского алфавита от A до Z; это множество упорядочено по алфавиту;включены десятичные цифры от 0 до 9; это множество по возрастанию цифр и связано;если в реализации допускаются строчные латинские буквы от a от z, то они должны быть упорядочены по алфавиту;включены такие символы, как пробел, запятая, точка и др.;отношение порядка между двумя символами множества значений типа char должно быть таким же, как и между их порядковыми номерами.ТАК ЧТО СКОРЕЕ ВСЕГО ЭТО БУДЕТ ОТВЕТ 1 И 2
10) 3
11 ) 3

0 0

4 года назад

найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры.помогите, пожалуйста! примерно представл

Ярослаф [7]

Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.

0 0

4 года назад

Какой командой меняется цвет букв в редакторе сайтов (блокноте)

Иван Леонов

Вот ты например написал слово
 Привет! 
Чтобы изменить цвет всего слова, пишешь:
style="color:green;"> Привет! 
Если хочешь изменить только букву, то надо писать по букве в теге

0 0

4 года назад

Прочитать ещё 2 ответа