Определите, количество каких элементов подсчитывается в следующем фрагменте программы:

k:=0

For i:=1 to 10 do

If a [i]>50 then k:=k+1

Write ('k=', k)

1. Сколько раз выполнится тело цикла во фрагменте программы S:=8; for i:=46 to 1 do s:=s+i; 2. Сколько раз выполнится тело цикла во фрагменте программы S:=0; for i:=1 to 50 do s:=s+i; 3.

Для числа подсчитывается сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Выполните расчеты для введенного с клавиатуры не более чем 50-значного числа.

Какие программы относятся к прикладным программам? A. Программы общего назначения. B. Специальные профессиональные программы. C. Языки программирования. D. Сервисные программы. E. Операционные системы.

Задание Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k:=20; k:=k+10; if k+1030 then k:=8 else k:=k-1; WriteLn (k) Ответ: 2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k) Ответ: 3.

Запишите то, что будет выведено на экран после исполнения данного фрагмента Паскаль-программы? ... goto m7; m1 : write ('не ') ; goto m9; m4 : write ('маслом') ; goto m4; m9: write ('испортишь') ; goto m3; m10 : write ('кашу') ; goto m5;