*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
1.Зробити головну сторінку (хто зробив і заголовок).
2.Не заходити на сайти з попередженням про небезпеку.
3.Можна встановити антивіруси або програми, які блокують непотрібну рекламу.
4.Не скачувати файли, які можуть нашкодити комп'ютеру.
5.Знаходити тільки потрібне в інтернеті, а на рекламу та пропозиції не відволікатися.
Підберіть відповідні малюнки та зображення до плану)))
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.
Ноутбук больше чем нетбук
Нетбук более удобный всмысле объема