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
Е:\видеозапись.avi
Е:\график.xIs
Е:\ИЗОБРАЖЕНИЯ\аквариум.bmp
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Е:\ТЕКСТЫ\буква.txt
Е:\ТЕКСТЫ\онегин.doc
Е:\мелодия.mp3
Е:\презинтация.ppt
Uses Crt;
var
i:integer;
a:array[1..10] of integer;
count: integer;
Begin
ClrScr;
for i:=1 to 10 do begin
a[i]:=i*3;
if i mod 2 = 0 then a[i]:= a[i]*(-1);
write(a[i],' ');
end;
<span>End.</span>
1. мякоть - ядрышко
адрес слива - плод - ядрышко
2. а