Язык программирования не указан, поэтому был выбрана система PascalABC.Net
const
Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
'Э','э','Ю','ю','Я','я'];
stop='$';
var
c:char;
n:integer;
begin
Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
n:=0;
repeat
ReadLn(c);
if c in Gl then Inc(n)
until c=stop;
Writeln('Количество гласных букв равно ',n)
end.
Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!
Обонятельную инф. мы воспринимаем носом, это запахи
осязательную инф. мы воспринимаем касаниями, это то, что мы чувствуем пальцами, руками, ногами и т.д.
Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
Program z1;
var a: integer;
Begin
readln (a);
if (a <1000) and (a>99) then writeln ( 'да')
else writeln('нет');
End.
Program z2;
var a, b : integer;
Begin
readln ( a, b);
writeln (a,': ',(a*a) +(a*a*a));
writeln (b,': ',(b*b) +(b*b*b));
end.
program z3
var n, i, k: integer;
Begin
readln ( n);k:=0;
for i : 1 to n do
k:=k+i;
write (k);
end.
program z3
var a,i: integer;
Begin
readln ( a );
for i: a downto 1 do
write( I, ' ');
End.
Увеличения? начиная с windows vista (windows 7) - восмикратное(800%), до vista (XP и ниже) - 10х (если нажать чуть выше значка 8х)