Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
Program B;
type
t=array[1..20] of integer;
var
a:t;
N,i:byte;
S:integer;
begin
readln(N); //кол-во элементов в массиве
S:=0;
for i:=1 to N do
begin
read(a[i]);
S:=S+a[i];
end;
write(S);
end.
Var
n: integer;
begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
1: writeln('1 января - Новый год; 7 января - Рождество Христово');
2: writeln('23 февраля - День защитника Отечества');
3: writeln('8 марта - Международный женский день');
5:
begin
writeln('1 мая - Праздник Весны и Труда;');
writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
end;
6: writeln('12 июня - День России');
11: writeln('4 ноября - День народного единства')
end
end.
Тестовое решение:
Введите номер месяца (1-12): 6
12 июня - День России
Ручной смартфон мобильный тоже
Настольный ноутбук нетбук
Прикладной ПК(ну системный блок клава мышь монитор)
I = 20 байт = 20 * 8 = 160 бит
n = 160/16 = 10
Получается слово занимает 10 символов (Не забываем про пробел и запятую ⇒ 10-2=8 символов - из этого кол-ва состоит слово)
Ответ: ласточка
