Какой шрифт и размер картинки использовать в сообщении напечатанном в worde или это не имеет смысла?
151
291
Ответы на вопрос:
Проверил у себя обе программы - всё работает, у вас тоже должно работать. 1). program summ_s; var i, n, denominator: integer; s, summ: real; begin n: =1; for i: =1 to 999 do begin if denominator=128 then begin write('s = '+summ); break; end; denominator: =n*2; s: =1/denominator; // 1/1*2, 1/2*2, 1/4* n: =denominator; summ: =summ+s; end; end. 2). program massive; var num_1, num_2, num_3, num_4, num_5, num_6, num_7, num_8, num_9, num_10, number: longint; i: integer; begin for i: =1 to 10 do begin write('введите число: '); readln(number); case i of 1: num_1: =number; 2: num_2: =number; 3: num_3: =number; 4: num_4: =number; 5: num_5: =number; 6: num_6: =number; 7: num_7: =number; 8: num_8: =number; 9: num_9: =number; 10: num_10: =number; end; end; writeln('введенные числа в обратном порядке: ' +num_10,num_9,num_8,num_7,num_6, num_5,num_4,num_3,num_2,num_1); end. p.s можно и по другому сделать, но я уже паскаль особо не помню. надеюсь , удачи : )
Популярно: Информатика
-
Alishkek06.02.2020 05:37
-
polinapetrova805.11.2020 17:26
-
1941г319.07.2020 10:49
-
Utugav27.05.2022 03:14
-
lida11325.03.2023 03:04
-
polina116531.05.2020 21:15
-
максимка228931.03.2022 15:02
-
888Blond17.10.2020 06:49
-
sasaaaru10.10.2020 20:52
-
Ainur052907.03.2022 14:44