4 года назад

Упростите !!!!Срочно!!!Пожалуйста!!!

Знания

Информатика

1 ответ:

РитаПаша4 года назад

0 0

Решение - в прилагаемом файле.

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

Вычислить сумму чисел,кратных 3.Число введённых с клавиатуры чисел вводится во время работы программы.Помогите решить.

VERONIKA1992

var a:array[1..100] of integer;

s,i: integer;

begin

for i:=1 to 10 do begin

write('a[',i,'] = ');

readln(a[i]);

end;

for i:=1 to 10 do begin

if a[i] mod 3 = 0 then begin

s:=s+a[i];

end; end;

writeln('summa chisel kratnx 3 = ', s);

readln;

end.

0 0

4 года назад

Какая из программ осносится к системным програмам? А текстовой редактор В графический редактор С оперативная память Д программа

Орехов Александр ... [2]

ответ: А - текстовый редактор

0 0

4 года назад

Пароль называется криптостойким, если выполнены 4 критерия: Пароль содержит строчные латинские буквы Пароль содержит заглавные

Nelver [21]

<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>

begin

var s := ReadString;

((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +

(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;

end.

0 0

4 года назад

Записать выражения на языке Паскаль

Асхат111

Корень - sqrt
число в квадрате - ^2
то есть:
1) sqrt(1+x)
2) a+sqrt(b^2-4ac)/2b+3a
3) sqrt(x+y)/x^2+y
модули точно не помню, но, вроде, sqr
4) sqr(x1+x2)+y1/y2+x1
5) sqr(x+y) / sqr(x-y) + sqr(x-y) / sqr(x+y)
6) x1+x2+ sqr(x1) / sqr(x1+y2)
7) sqrt(x+y) / x-y + x-y / sqrt(x+y)
8) b^2-4ac / sqrt(2a+b)
9) sqrt(sqr(sin(/alpha)) + sqr(cos(/beta))) / sqrt(sqr(sin(/beta) + cos(/alpha)))
10) точно не знаю
11) (x+y)* (x+ (y/x^2+xy))/(1+ 1/(x^2+4))
Не уверен, что все правильно. Старался

0 0

4 года назад

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

yapk

Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
<span>End.</span>

0 0

4 года назад