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

РЕБЯТА,МОЛЮ МНЕ С ЭТИМИ ЗАДАНИЯМИ! ОТ ТОЛЬКО СДЕЛАЙТЕ ПРАВИЛЬНО! ​


РЕБЯТА,МОЛЮ МНЕ С ЭТИМИ ЗАДАНИЯМИ! ОТ ТОЛЬКО СДЕЛАЙТЕ ПРАВИЛЬНО! ​

Показать ответ
Ответ:
utochkins04
utochkins04
13.01.2022 03:04

Программа составлена правильно, но можно сделать компактнее

 

Program Chislo;
Uses Crt;
Var x,y,z,p: integer;
Begin
Clrscr;
WriteLn ('Введите первое число');
ReadLn (x);
WriteLn ('Введите второе число');
ReadLn (y);
WriteLn ('Введите третее число');
ReadLn (z);
if x>y then p:=x else p:=y;
if x>z then p:=x else p:=z;
if y>z then p:=y else p:=z;
WriteLn ('Наибольшее число:',p);
End.

 

Я вырезал

If y>x then p:=y else p:=x;
If z>x then p:=z else p:=x;
If z>y then p:=z else p:=y;

 

потому что это бесмысленный движения, а так задача работает.

 

Вопросы, неточности в ЛС

0,0(0 оценок)
Ответ:
JakaJaka07
JakaJaka07
11.10.2021 05:40

var s,vk:real;

m:integer;

begin

s:=100000;

vk:=0;

m:=0;

while vk<=30 do

begin

vk:=vk+0.04*s;

s:=1.04*s;

m:=m+1;

end;

write(m);

end.

Это решение для ваших параметров.

 

Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.

Это решение для задаваемых параметров

Вопросы, недочеты в ЛС

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