program z1; uses crt; var n: integer; i: integer; begin write(‘ введите n : ‘); readln(n); for i : = 1 to n do begin writeln(‘ число: ‘,i,’ степень: ‘, i *i); end; end.
откомпилирован: (dev cpp)
Ответ разместил: Гость
for i: =1 to length(s) do
if s[i]=’м’ then inc(z);
if s[i]=’н’ then inc(z1);
if z> z1 then writeln(‘больше букв м’);
if z=z1 then writeln(‘букв м и н равное количество’);
Ответ разместил: Гость
первую фигуру мы можем раскрасить в 6 цветов, вторую — в 5, третью- в 4, и т.д. а первую — в 3 цвета
ответ 360 способов
Ответ разместил: Гость
иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр. и 2413 маляр 1
Источник: vse-znaniya.com
§ 6. Передача информации
Определите в каждом примере источник, приемник, канал: — если вы слушаете радио — если вы смотрите телевизор
Определите в каждом примере источник, приемник, канал: — если вы слушаете радио
Передача информации (источник-приемник)
— если вы смотрите телевизор
— разговор по телефону.
Информатика 08.04.2020 11:43
Ответы
4,6(33 оценок)
Даже понятия не имею, к чему тут div и mod. Задача решается циклом for:
Var a,i:integer; b,c,b2:real;
Begin
write(‘a=’); readln(a);
write(‘b=’); readln(b);
write(‘c=’); readln(c);
c:=c*0.01;
b2:=b;
for i:=1 to a do
b2:=b2+(b2*c);
b2:=b2-b;
writeln(‘ответ: ‘,b2:0:2);
End.
Будущее для жизни уже сейчас
Мгновенная помощь
Из любой точки мира на любом языке
Поможет стать лучше
Решит любую задачу, ответит на вопрос
Используй как тебе удобно
В твоем телефоне, ноутбуке, планшете
Делай больше за тоже время
0tvet AI сделает твою учебу и работу более результативней
0tvet AI
Используй все возможности исскуственного интеллекта
Источник: 0tvet.com