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

решите Нужно. Написать программу на паскале. Удалить из массива элемент, расположенный после каждого значения, равного максимальному элементу. Если такая замена невозможна, выдать об этом сообщение.

Показать ответ
Ответ:
angelala123
angelala123
02.02.2021 23:01

Объяснение нужны ответы Какие из записей являются верно записанными формулами в электронных таблицах?

1)== C2 + C8

2)?C1 + D1 * D2

3)D100 * D1 =

4)!= A1 + B5

5)=F1 + A1 * A2

6)!!B1 - C3

№2

Прикрепил фото с заданием

№3

В Openoffice.org Calc создали таблицу, заполнив ее ячейки так, как показано на рисунке. Какое число будет находиться в ячейке C1 после того, как будет нажата клавиша Enter?

Комментарий. Если у вас русскоязычная версия электронных таблиц, нужно считать, что вместо IF записано ЕСЛИ.

№4

В электронную таблицу занесли результаты тестирования учащихся по русскому языку и математике. На рисунке приведены первые строки получившейся таблицы.

В столбце A указаны фамилия и имя учащегося; в столбце B – район города, в котором расположена школа учащегося; в столбцах C, D – баллы, полученные соответственно по русскому языку и математике. По каждому предмету можно было набрать от 0 до 100 баллов.

Всего в электронную таблицу были занесены данные по 263 учащимся. Порядок записей в таблице произвольный. Откройте файл с данной электронной таблицей: /uploads/inner_file/file/9768/table2.xls. На основании данных, содержащихся в этой таблице, ответьте на во чему равна наименьшая сумма баллов по двум предметам среди учащихся Заречного района?

№5

Прикрепил фото с заданием

№7

прикрепил фото с заданием

0,0(0 оценок)
Ответ:
sergejryazanov228
sergejryazanov228
19.08.2020 12:50

1:

var N,k,s:integer;

BEGIN

s:=0;

readln(N,k);

N:=abs(N);

while N>0 do begin

if (N mod 10=k) then

s:=s+1;

N:=N div 10;

end;

writeln(s);

end.

2:

var N:integer;

s:string;

BEGIN

readln(N);

s:=IntToStr(N);

if (s[1]=s[Length(s)]) then

writeln('ДА') else

writeln('НЕТ');

end.

3:

var N,p,s,k:integer;

BEGIN

readln(N);

p:=1;

s:=0;

k:=0;

while N>0 do begin

p:=p*(N mod 10);

s:=s+(N mod 10);

k:=k+1;

N:=N div 10;

end;

writeln('Количество цифр = ',k);

writeln('Сумма цифр = ',s);

writeln('Произведение цифр = ',p);

end.

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