Var
A:real;
i:byte;
Begin
WriteLn('Введите цену одного кг конфет');
ReadLn(A);
For i:= 1 to 10 do
Write(A*i,' ');
End.
Пример:
Введите цену одного кг конфет
3.2
3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For A:= A to B do
P:=P*A;
WriteLn(P);
End.
Пример:
A = 3
B = 7
P = 2520
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+1/N;
Write('S = ',S)
End.
Пример:
N = 3
S = 1.83333333333333
1. Дима дарил котенка в желтых перчатках Вике
2. 7 гладиолусов подарил Саша
3. Ульянов учитель и ездит на автобусе, Савинов журналист и ездит на такси, а Жуков сварщик и ездит на метро
<span>256 называется VGA обычно так называется.</span>
1) Любая информация имеет двоичную форму
2) Арифметические расчеты выполняет процессор
3) Прикладное программное обеспечение нужно для того, чтобы пользователь мог сделать что то при помощи компьютера без программирования. Например, нарисовать картинку, решить задачу, построить график, оформить текст для печати.
4) В наше время наиболее распространены портативные персональные компьютеры
5) В состав системного блока входят: блок питания, кулер, процессор, модули оперативной памяти, видеокарта, звуковая карта, устройство для чтения дисков, постоянное запоминающее устройство.
6) Быстродействие, разрядность, величина памяти
