Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Диктофон,телефон,веб камера,видеокамера,покашто это
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.
Esc,Enter,Shift,Caps Lock,Control,Alt,Backspace,Delete,Insert,Home,End,Page Up,Page Down,Num Lock назначение клавиш
Alex Petreniuk
Esc-Возвращение к предыдущему состоянию
Enter-Перевод строки
Shift-Ввод заглавных букв
Caps Lock-Все буквы в заглавном виде
Control-Ввод управляющих символов
Alt-Изменение назначений других клавиш
Backspace-Удалить текст в правую сторону
Insert-Переключение из режима вставки в режим замены
Home-Возвращение в начало строки
End-Возвращение в конец строки
Page Up-Переключение в начало текста
Page Down-Переключение в конец текста
Num Lock-Включение дополнительной клавиатуры с цифрами
Список учеников класса, оценки учеников за контрольную работу по информатике, периметры нескольких прямоугольников (последнее не точно)