Задать вопрос!

Задать вопрос!

Все категории

4 года назад

12

Помогите пожалуйста это кумир

Помогите пожалуйста это кумир

Информатика

1 ответ:

моряк 54 года назад

0 0

Какое задание? Тогда я Смогу помочь.

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

Составьте массив a от 1 до 100 с помощью генератора случайных чисел с элементами от -7 до 7. выведите на экран, подсчитайте коли

rdgfdgfdtrytrt

Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>

0 0

4 года назад

Помогите пожалуйста,напечатать программу. Среди чисел 1,4,9,16,25...найти первое большее заданного N. (язык программирования C++

mezya [45]

// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>

0 0

4 года назад

Составьте блок схему:program qwer;// Найти сумму вcех чисел до n var i,n,s:integer; begin Writeln ('Введите число n' ); readln (

MaxMar26 [7]

См скриншот
===============================

0 0

4 года назад

Составьте программы на Паскаль для вычисления выражений:

Дарья131091

Var x,y1,y2,y3:real;
begin
readln(x);
y1:=exp(ln(x)*8);
y2:=exp(x-2)*(x-5);
y3:=sin(x-5);
writeln(y1:5:3,' ',y2:5:3,' ',y3:5:3);
end.

Пример:
1.8
<span>110.200 -2.620 0.058</span>

0 0

4 года назад

Что из перечисленного ниже не является операционной системой? 1. MS DOS 2. Windows 7 3. Windows XP 4. MS Excel

sgushenkav [422]

4 это программа для работы с таблицами

0 0

4 года назад

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