Как считали до компьютеров?

Знания

Информатика

1 ответ:

zoya4 года назад

0 0

Люди считали в уме и письменно наверн

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

Решить задачу срочно пожалуйст

Россинка

Program ryazantsev;
var str1, str2: string;
begin
readln(str1);
readln(str2);
if Pos('a', str1)=0 then writeln(str1);
if Pos('a', str2)=0 then writeln(str2);
end.

0 0

4 года назад

Составьте программу определяющую, является ли число x простым

StaticZero [31]

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln('неверные данные'); writeln('a>=2');readln; halt; end; begin clrscr; write('a=');readln(a); if a<2 then haltproc; if a=2 then begin writeln2('простое'); readln;halt; end; p:=true; for i:=2 to trunc(a-1) do if a/i=trunc(a/i) then p:=false; if p=true then write('простое') else write('не простое'); readln; end.

0 0

4 года назад

7345,75(10) 234,238(10)напишите число в развернутом виде

Mariya24

................................................

0 0

3 года назад

Вычислить в паскаль: Для проверки нужно прислать коды программ и результаты их работы.

Таисия5

1) y:=x-((sqr(x)*x)/3)+((sqr(x)*sqr(x)*x)/5);

2) z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);

3) y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

4) y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);

0 0

4 года назад

Помогите составить программу цикл со счетчиком по задаче произведение 10-ти произвольных чисел веденных с клавиатуры

Светлана28

На питоне:
pr=1
i=0
while i<10:
a=int(input())
pr*=a
i+=1
с циклом for быстрее не забудь в конце поставить print

0 0

4 года назад