Дано словесное описание алгоритма: z: =2; d: =7; k=0; начало цикла пока d> =z d: =d – z; k=k+1; конец цикла; вывести результат на экран. составить блок-схему в виде циклического алгоритма. определить количество циклов k. написать
программу на языке паскаль с использованием оператора цикла с предусловием.
166
500
Ответы на вопрос:
program xxx;
var z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
begin
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
program first;
var z,d,k: integer;
begin
writeln('input z,d,k');
readln(z,d,k);
if (d> =z) then
d: =d-z
k: =k+1
writeln(d,' ',k);
readln;
end.
если твое кольцо есть фигура тор, то это внешний и внутренний радиусы. (внешний больше). тогда код вот такой:
uses crt; varr1,r2: real; beginread(r1,r2); writeln(pi*(r1*r1-r2*r2): 0: 3); end.
Популярно: Информатика
-
228alex77719.01.2022 16:20
-
Муся00023.04.2020 06:34
-
asdgvhmh09.08.2022 10:19
-
777ppp77727.06.2023 06:47
-
Jack170308.12.2020 23:34
-
EMP2418.07.2022 05:52
-
дара33322.03.2022 02:01
-
Nemosing19.09.2022 15:19
-
meriko221.10.2022 21:00
-
ilya2006305.06.2021 22:25