Сколько раз будет исполнен цикл в фрагменте программы : p:=23 ; k:=0 repeat p:=p*0.1; k:=k+1; until p<0;

Знания

Информатика

1 ответ:

Серая Шейка [57]4 года назад

0 0

P=23*0.1=2.3
k=0+1=1
until 2.3 <0 ===> true
p=2.3*0.1=0.23
k=1+1
until 0.23 <0 ===> false
ципл перестанет выполнятся и тогда получается что лн выполнился 2 раза

Читайте также

В массиве случайных чисел посчитать количество положительных элементов

111belka111

Так как язык указан не был, написал на C++
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
const size_t len = 40;
int arr[40];
for (size_t i = 0; i < len; ++i)
arr[i] = 5 - rand() % (10);
size_t count = 0;
for (size_t i = 0; i < len; ++i)
if (arr[i] > 0)
count++;
cout << count << endl; return 0;
}

0 0

4 года назад

История появлений цифр

minusTen

История появлений цифр пришло от древнегреческих людей цифр придумал цицерон коцкеронс
так и появились цифры

0 0

3 года назад

Прочитать ещё 2 ответа

Пожалуйсиааа помогитееее????

elena-Iv [14]

Книга, т. к. это носитель информации

0 0

4 года назад

Вставь пропущенные слова: -это упрощенный заменитель реального обьекта

vikorys [20]

Модель- это упрощенный заменитель реального объекта. :3

0 0

3 года назад

1)Вычислить значения функции y=4*x^3-2*x^2+5 для x, изменяющегося от -3 до 1 с шагом 0,1 на языке ПАСКАЛЬ!!СРОЧНОО ЗАВТРА ЭКЗАМЕ

nikyl91

5)
program gt5;
var n,k:integer;
begin
k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln(k);
end.
3)
program gt3;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if(i mod 2=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gt2;
var k,i:integer;
begin
k:=0;
for i:=11 to 20 do
begin
if(i mod 2=1)then k:=k+1;
end;
writeln(k);
end.
1)
program gt1;
var x,y:real;
begin
x:=-3.1;
while x<1 do
begin
x:=x+0.1;
y:=<span>4*x*x*x-2*x*x+5;
writeln(y);
end;
end.
про 4 я не понял поэтому не смог решит</span>

0 0

4 года назад