Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
1)
#include <stdio.h>
int main()
{
int i;
for(i=102;i<=198;i=i+3)
printf("%d ",i);
return 0;
}
2)
#include <stdio.h>
int main()
{
int a,b,c,i;
scanf("%d%d%d",&a,&b,&c);
for(i=a;i<=b;i++)
if(i%c==0)
printf("%d ",i);
return 0;
}
100*60*80=480000 байт (1 книга в байтах)
480000:1024=468.75кБайт (1 книга в кбайтах)
650*1024=665600кБайт (Объем диска в кбайтах)
665600:468.75=1419.94
Ответ: всего можно хранить 1419 книг (для 1420 не хватает места)
Могу подсказать идеи: в 1м используешь метод сортировки пузырьком, только не больше или меньше, а отрицательное или положительное
во 2ом слишком просто, if(a[i]>b[i]) c[i]=a[i]; else c[i]=b[i];
в 3ем тоже дотсточно просто, пройтись циклом по массиву, и если число меньше нужного, а следующее больше, то пузырьком смещаешь все элементы выше i+1 вверх, а на i+1 вставляешь нужное число
в 4ом пройти весь массив проверяя лучше через функцию каждое число на правильность
в 5ом делаешь отдельный массив, в котором все сдавшие, и методом сложения всех чисел и деления на их количество находишь среднее.
программы пиши сам, не честно на олимпиадах так нагло воровать, дальше всё равно не пройдёшь, в 8м классе на олимпиаде по информатике из 60 человек хоть что-то решили только 4, и то по 1ой задаче
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.