Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
Так как файлы не приложены, то могу только объяснить, как делать это задание.
1. Открываешь файл "<span>p1.bmp" в Paint'е.
2. Открыв файл, справа открываешь меню и выбираешь пункт "Сохранить как".
3. Внизу есть строка "Тип файла". Нажимаешь на нее и будет выпадающий список (смотри вложение).
4. Выбираешь "</span><span>24-разрядный рисунок".
5. Сохраняешь в нужной папке.
Точно так же делаешь с остальными файлами, только меняешь тип.
Чтобы сравнить объем полученных файлов, жмешь правой кнопкой мыши на любой из них, нажимаешь "Свойства" и записываешь где-нибудь его размер. Так делаешь для всех файлов.
Посчитаешь и сравнишь объемы.
Качество: оцени сам(а), виднее будет.</span><span />
//Pascal ABC.NET v3.1 сборка 1219
Var
i:integer;
begin
for i:=1000 to 9999 do
if (i mod 133=125) and (i mod 134=111) then writeln(i);
end.
Вывод программы:
1987
