Var s, n: integer; begin s : = 42; n : = 1; while s 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) - id479591320230503 от пандапандапанда 03.05.2023 05:54

Question

Информатика: Var s, n: integer; begin s : = 42; n : = 1; while s 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) end решить по !

пандапандапанда · Accepted Answer

1.

1) s := (x1+x2)/2

2) dec(k) или k:=k-1

3) inc(i) или i:=i+1

4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)

2.

а) значения функции y=х(в квадрате)

var y,x: real

б) площади прямоугольника

var a,b,s: real

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv:integer; st,so,sum: real

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

var kvt,kvr,kvk:integer; st,sr,sk,sum: real

Var s, n: integer; begin s : = 42; n : = 1; while s > 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) end решить по !