CLS
INPUT a, b, c, d
IF a = 0 AND b * c * d <> 0 OR b = 0 AND a * c * d <> 0 OR c = 0 AND a * b * d <> 0 OR d = 0 AND a * b * c <> 0 THEN
PRINT "Pravda"
ELSE
PRINT "Nepravda"
END IF
<em><u>Тестовое решение:</u></em>
? 4, -7.2, 0, -6
Pravda
1)
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('разность: ',a-b);
writeln('произведение: ',a*b);
writeln('сумма: ',a+b);
writeln('частное: ',a/b);
end.
2)
Program n2;
var a,b,c: real;
begin
readln(a,b);
c:=sqrt(a*a+b*b);
writeln('площадь: ',0.5*a*b);
writeln('периметр: ',a+b+c);
end.
3)
Program n3;
var d1,d2,d3,a: integer;
begin
write('введите число: ');
readln(a);
d1:= a div 100;
d2:=a div 10 mod 10;
d3:=a mod 10;
writeln(d3,d2,d1);
end.
1)тест1.doc
Тест.doc
2)с:\games\happy\pacman.exe
3)c:\pictures\foto\весна.jpg
4)столбец, абзац, строка
5)редактирования
Вот программа:
var
x:integer;
function Fact(n:integer): integer;
var
i,sum:integer;
begin
sum:=1;
for i:=1 to n do
sum:=sum*i;
result:=sum;
end;
begin
readln(x);
writeln(Fact(x));
end.
--------->С помощью этой функции найти <span>факториалы пяти данных целых чисел.
- Вы не написали каких чисел</span>