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

Информатика, много ! Ребят нужно решения для 10 класса без сложных функций командами для 10 класса
readinteger , split и другие такие функции не приветствуются решение без char и т д
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в

строке каждый из входящих в нее символов.

2) С клавиатуры вводится предложение, в котором слова разделены пробелами.

Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту

же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)​​

Показать ответ
Ответ:
ShadowFlcus
ShadowFlcus
11.04.2023 22:00
2)
const 
N=8;
M=10;
var p:array[1..N,1..M] of integer;
i,j:integer;
begin 
for i:= 1 to N do   
for j:=1 to M do 
begin   p[i,j]:=i*j;  write(p[i,j],' ') 
end; 
end.

3)
const 
N=4;
M=6;
var z:array[1..N,1..M] of integer;
i,j,sum,pr:integer;
begin
randomize;sum:=0;
pr:=1; 
  for i:= 1 to N do   
   for j:=1 to M do   
begin z[i,j]:=random(100); 
 write(z[i,j],' ');   
 sum:=sum+z[i,j];   
 pr:=pr*z[i,j]; 
end; 
writeln(); 
write('сумма ',sum,' произведение ',pr); 
end.

4)
const 
N=5;
M=5;
var a:array[1..N,1..M] of integer;
i,j,sum,pr:integer;
begin
randomize;
sum:=0;
pr:=1; 
for i:= 1 to N do   
for j:=1 to M do   
begin
a[i,j]:=random(100);   
write(a[i,j],' ');   
sum:=sum+a[i,j];   
pr:=pr*a[i,j]; 
end; 
writeln(); 
write('сумма ',sum,' произведение ',pr); 
end.
0,0(0 оценок)
Ответ:
васька58
васька58
20.11.2021 09:05

Сейчас на очень трудно представить мир без интернета. Каждый из нас, каждый день тратит время на компьютер, телефон или планшет. Как выглядил бы современный мир без интернета?

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

Без интернета жизнь стала бы лучше? Сомневаюсь. Тк ты много времени тратил на поиск информации, было бы не удобно общаться через большие расстояния, ты больше не смог бы позвонить своим родственникам по видео связи, которые живут далеко.

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