М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ok7a
Ok7a
12.06.2020 15:29 •  Информатика

Написать программу для нахождения значения переменной s по формуле: s=1n 1 + 1n 2 + + 1n n .

👇
Ответ:
varksen
varksen
12.06.2020
Uses crt;
var i,n,s:integer;
begin
read(n);
for i:=1 to n do
s:=s+i*n;
writeln(s);
end.
4,8(99 оценок)
Открыть все ответы
Ответ:
Mussa1
Mussa1
12.06.2020

1. прежде чем переходить любую дорогу, остановись на краю тротуара.

2. внимательно посмотри налево и направо и выясни: какая же это дорога — с односторонним или с двусторонним движением.

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

4. пересекай проезжую часть быстрым шагом, но не беги.

5. переходи дорогу под прямым углом к тротуару, а не наискосок.

и самое главное:

будь внимателен всё то время, пока ты переходишь дорогу!

4,5(86 оценок)
Ответ:
дима22819
дима22819
12.06.2020
Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.
4,4(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ