Program pr;
var norma,total:real;day:integer;
begin
norma:=10;
day:=0;
repeat
day:=day+1;
writeln('День: ',day);
writeln('Норма: ',norma:0:1,' км');
writeln();
total:=total+norma;
norma:=norma*1.1;
until day=7;
writeln();
writeln('Всего: ',total:0:1);
end.
Дважды кликнуть ПКМ (Правой Кнопкой Мыши) по иконки Paint.
program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.
Замечание: считается, что первое число <= второго числа.
var a,b:integer;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Ответ: ',b-a-1);
end.
Пример:
<span>Введите два числа: 4 10
Ответ: 5</span>
Ответ
Uses Crt;
var b, n, k:integer;
begin
ClrScr;
write('Введите n=');
readln(n);
b:=1; k:=0;
while 3*b < n do
begin
k:=k+1;
b:=b*3;
end;
writeln('k=', k, ' 3^k=', b);
readln;
end.
Объяснение: