Var s,ds:real; k1,k2:integer;
begin
//a
s:=1000; ds:=0; k1:=0;
while ds<=30 do
begin
ds:=s*0.02;
s:=s+ds;
k1:=k1+1;
end;
writeln('k1 = ',k1);
//б
s:=1000; ds:=0; k2:=0;
while s<=1200 do
begin
s:=1.02*s;
k2:=k2+1;
end;
writeln('k2 = ',k2);
end.
Результат:
k1 = 22
k2 = 10
Смотри вложение
и в следующий раз пиши хотя бы номер задания
1)4*4=16, 2^4=16 ответ 4 бита
2)2^3=8; 2^7=128 событий
3)2^3=8 ответ 3 бит
4)2^7=128 ответ 7 бит
5)4/32=1/8; 2^3=8 ответ 3 бит
Program zadacha;
var a,b,c,s,p: integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
s:=a+b+c;
p:=a*b*c;
writeln ('Сумма равна ',s);
writeln ('Произведение равно ',p);
end.
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой