4 года назад

Продолжи ряд десятичных чисел 11 13 15 17

Знания

Информатика

2 ответа:

ВераВе [17]4 года назад

0 0

Все не четные до числа 99

Ольга34824 года назад

0 0

Все нечетные числа до 99

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

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: in

CAIIIA

Var
a,b,c,y,x,:real;

function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;

begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
    a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
    y:=(a*b)/c;
    Writeln ('y=',y:5:2);
    end
end.

0 0

4 года назад

Информатика 6 класс задание: Выберите лишнее. Работа со списками может применяться: А. При составление плана работы. В. При набо

разробочик програ...

Если говорить абстрактно, то в каждом пункте применимы списки
А список заданий
В список строк текста
С список букв и символов оглавления
D список уроков

но средне-обычно используют списки в случаях A и D

0 0

4 года назад

Составить программу: Слово ТУРБИНА заменить словом РЕЗИНА Слово МОНИТОР заменить словом КОНТАКТ . Должна получиться одна програм

Petrovich 29635 [17]

var x:string;

begin

x:='Турбина';

writeln(x);

x:= 'Резина';

writeln(x); // writeln выводит текст

// с переменной х.

//Можно убрать.

x:='Монитор';

writeln(x);

x:='Контракт';

writeln(x);

end.

0 0

4 года назад

Задумано некоторое число х (х<100). Известны числа k,m,n - остатки от деление этого числа на 3, 5, 7. Решите задачу через rep

СтасАнанас

Var x,k,m,n:integer;
begin
readln(k,m,n);
x:=0;
repeat
x:=x+1;
until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);
if x<100 then writeln(x) else writeln('Ошибка ввода');
end.

Пример:
0 3 6
48

0 0

4 года назад

В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры).

СЕРГОУ

Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.

0 0

4 года назад