Program asd;
var g,o:integer;
begin
Writeln ('Введите ваш возраст');
readln (g);
Writeln ('Ваш опыт работы');
readln (o);
if (g>20) and (g<40) and (o>5)
then writeln ('принят')
else writeln ('нет');
end.
Клавиaтура тут ни при чём, нужен тeкстовый редактор с поддержкой
автодополнения слов и словарём для русского языка. Почитай "Предиктивный
ввод текста" в Википeдии.
Формула нахождения НОК двух чисел A и B
1) НОК=(A*B) / НОД(A,B)
Program FindNOK;
Uses Crt;
var n,m,res,nok:integer;
function evklid( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a:= a mod b
else
b:= b mod a;
evklid:= a + b;
end;
begin
clrscr;
writeln('Введите A и B');
readln(M, N);
res:= (Evklid(n,m));
nok:= (m*n) div res;
writeln('NOK=',nok);
readkey;
end.
4096 б = 4.096 кб
1 МБ = 1048576 Б
31457280 б = 3.75 МБ
#include <stdio.h>
int main () {
double q, t;
int i, n;
printf ("Q, T, N? "); scanf ("%lf %lf %d", &q, &t, &n);
i = 1;
while (i <= n) {
q -= t;
printf ("N = %d, Q = %lf\n", i, q);
i++;
}
return 0;
<span>}</span>