Программа на pascal: вводятся целые числа. признак конца - ввод числа 0. определить, сколько двузначных четных чисел, оканчивающихся на 2, расположено между 2-ым и 5-ым числами !
Var A,B,i:integer; k:byte; Begin i:=0; k:=0; Repeat Read(A); i:=i+1; if (i>2)and(i<5) then Begin B:=Abs(A); if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1; End; Until (A = 0)or(i>=5); if A<>0 then Repeat Read(A); Until A = 0; WriteLn(k) End.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
1. структурность и упорядочивание информации 2. впринцепе да, но это может и не быть оптимальная модель и тем более удобная в использовании 3. расписание уроков, дневник, классный журнал 4. телепрограмма, всевозможные списки и расписания, меню в ресторане, список покупок и тп 5. вообще правил очень много, нужно правильно структурировать, не плодить копий и тд 6.текст, дата, число, ссылка тут немного не понятно о каких конкретно таблицах речь. В СУБД есть такой тип поля BLOB который принимает двоичные дайные, например файлы, рисунки и тп. В Excel можно просто вставить рисунок в ячейку любую 7 к типу ООО т.е. пересечение двух типов обьектов 8 вообщем любые списки. данные об учениках, данные об учителях 9 табель, свод успеваемости класса по предметам и тд
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.