В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
tchernia
tchernia
28.10.2021 23:15 •  Информатика

1 а)Найти значение Y. x:=16;
y:-SQRT(x)+20/(SQRT(x)+6);
б) Записать выражение на Паскале.
a - b
b) Найти значение
41 mod (11 div 3)-15
2. Дано число Х, определить является ли оно двузначным и оканчивающимсяна "3".
Всë нужно сделать в Паскале

Показать ответ
Ответ:
Fomabarca
Fomabarca
19.05.2021 12:44

1) блок информации на внешнем запоминающем устройстве компьютера, имеющий определённое логическое представление 

2) имя файла состоит из его имени и из его расшерения

3) имя файла задаёт пользователь

4)расширение файла адается программой автоматически при его создании

5)256 без расширения

6)3 Пример: .doc

8)В процессе форматирования диск разбивается на 2 области: Область хранения файлов и Каталог

10)[буква диска:]/ или
[буква диска:]\ или or
\\[имя сервера]\
примечание: для команды CD, / treated as relative path (same as [буква диска:].\) / или \ (примечание: для команды CD, / treated as relative path (same as .\)) .. C:\user\docs\Letter.txt

A:Picture.jpg
\\Server01\user\docs\Letter.txt

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0,0(0 оценок)
Ответ:
новичок618
новичок618
28.07.2021 17:26

1)

Program Pr1;
uses crt;
var x,i,n:integer;
begin
clrscr;
readln(n);
x:=1;
for i:=1 to n do x:=x*i;
writeln(x);
end.

2)

Program Pr1;
uses crt;
var x,y:real;
Begin
clrscr;
readln(x,y);
writeln(Exp(y*ln(x)));
end.

3)

Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,c,b:integer;
Begin
clrscr;
writeln('Vvedite kol chisel');
readln(n);
c:=0;b:=1;
for i:=1 to n do begin
writeln('vvedite ',i,' chislo ');
readln(mas[i]);
end;
For i:=1 to n do if mas[i]<0 then c:=c+1
else b:=b*mas[i];
writeln('Chislo otrizateln. ',c,' Proizvedenie polojiteln ',b);
end.

4)

Program Pr1;
uses crt;
var x,y,i:integer;
Begin
clrscr;
readln(x);
y:=0;
for i:=100 to 999 do if i>x then begin
writeln(i);
y:=y+1;
end;
writeln('Vsego ',y);
end.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота