СLS
INPUT x
IF (2x-3)<0 THEN PRINT "не может быть": END
<span>y=(SQR(((2*x-3)^5)+sin(x)))/(1/(tan(x^3*ABS(x-3))))</span>
PRINT y
END

CLS
INPUT a
INPUT b
w=a
a=b
b=w
PRINT a
PRINT b
END

0 0

3 года назад

Как отредактировать текст в готовом psd файле?

Анастасия051 [67]

используй File Viwer Plus или Notepad++, очень крутые проги, сам использую

0 0

4 года назад

Прошу помощи в написании программы!!! Сколько букв "У" в заданном слове стоит на четных местах? (тема -операции над массивами)

DZP

Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>

0 0

4 года назад

Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных ч

Buhsovetnik

Var
a:array[1..10] of integer;
b,i,k:integer;
begin
Randomize;
Write('Введите количество элементов в массиве: ');
for i:=1 to 10 do
begin
    a[i]:=Random(21)-10;
    Write(a[i],' ')
    end;
Writeln;
Write('Какое число искать? ');
Readln(b);
k:=0;
for i:=1 to 10 do
    if a[i]=b then Inc(k);
Writeln('Число встречается ',k,' раз')
end.

Подробнее - на Znanija.com - znanija.com/task/29303328#readmore

0 0

3 года назад

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