Почему я 7 клас, и не понимаю КАК ЭТО ДЕЛАТЬ??
ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.
Const flats_per_floor = 3;var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat <= 0) then begin writeln('Неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.
Ответ:
Компьютеры сейчас очень популярны и удобны для человечества это очень хороший поисковик который подходит для знаний, изучения языков и наук а также развлечений. Но есть и минусы у этого умного робота-из-за него может начать портится зрение если много в нем проводить времени а также начался компьютерная болезнь тоесть лихорадка которая тебя постоянно манит
program n1;
uses GraphABC;
var x1,y1,R:integer;
x,y:real;
begin
writeln('Введите размер стороны');
read(R);
x:=R/2;
y:=R/2;
setwindowsize(800,600);
setpenwidth(3);
rectangle(0,0,R,R);
line(0,0,R,R); line(0,R,R,0);
writeln('Введите координаты точки x и y');
read(x1,y1);
if (x1=x) and (y1=y) then
writeln('Является')
else writeln('Не является');
end.
