вот.
var mes,i: int64;
n,sum: real; beginreadln (n); sum: =0; repeat sum: =sum+n/100*4; mes: =mes+1; until sum< > 30; writeln (mes); end.
1. число не меньше 50 и четное: 50
2. опечатка, вероятно. либо наибольшее x - тогда 99, либо наименьшее натуральное x, и тогда это будет 1, либо не меньше 100, тогда 101
3. немного запутано, но по идее: число должно быть четным и меньше 10. максимальное такое число: 8
4. x больше либо равен 7, или x меньше 6. единственное число, которое не подходит под эту формулу: 6
10. обычное уравнение вида при том что n только натурален. очевидно, что n = 2
17. надо просмотреть каждую пару чисел и поставить плюсик, если первое больше 15 или второе больше 9. я загнул пять пальцев, лучше меня перепроверить
25. у эсминца всего 2500 из которых 500 принадлежат также и фрегату. а всего-всего их 4500. значит только эсминцу принадлежат 2000, только фрегату тоже 2000, а фрегату всего 2000+500 = 2500. я понимаю, что ничего из этой писанины понять невозможно, так что прилагаю картиночку, написанную замороженной куриной лапой.
45. столько писанины, а проще взять листочек в клеточку и самому побыть роботом, исполняя команды. если у меня все верно, то за один цикл получается общее смещение на 1 вверх и 1 вправо. значит за 5 циклов будет смещение (5,5) и чтоб переместиться в начало надо дать команду (-5,-5)
53. третья строчка аналогична: a = 2*4 + 7*3. любой второклассник скажет, что это 29. четвертая строчка аналогична: b = 30-29 = 1. таким образом, у нас a = 29, b = 1. а просят найти именно b. в ответ пишем 1
ответ:
таблица размеров обуви
таблица размеров обуви россия великобритания европа длина ступни, см 34,53,53623 35,5436⅔23–23,5 364,537⅓23,5 36,553824 375,538⅔24,5 38639⅓25 38,56,54025,5 39740⅔25,5–26 407,541⅓26 40,584226,5 418,542⅔27 42943⅓27,5 439,54428 43,51044⅔28–28,5 4410,545⅓28,5–29 44,5114629 4511,546⅔29,5 461247⅓30 46,512,54830,5 471348⅔31 4813,549⅓31,5
объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Как через паскаль решать.. гражданин 1 марта открыл счет в банке, вложив 100000 руб. через каждый месяц размер вклада увеличивается на 4% от имеющейся суммы. определить: через сколько месяцев величина ежемесячного увеличения вклада превысит 30 руб
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; beginclrscr; writeln('введите сумму вклада: '); read(s); writeln('введите месячный процент(%): '); read(pc); pc: =pc/100; vk: =0; m: =0; while vk< =30 dobeginvk: =vk+pc*s; s: =(1+pc)*s; m: =m+1; end; write('вклад превысит 30 руб через ',m,' месяцев'); end.
это решение для задаваемых параметров
вопросы, недочеты в лс