integer
begin
s:=0;
for k:=l to 6 do
s:=s+15;
write (s)
end.
Вопросы и задания
Занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). Выведите названия стран в порядке возрастания плотности их населения.
Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. Программа получает на вход целые числа. Количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000.
Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 3.
В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] — данные за понедельник, Dat[2] — данные за вторник и т. д.). Определите, что будет напечатано в результате работы следующей программы.
var s, k: integer;
Dat: array[1..7] of integer;
begin
Dat[1]:=12; Dat[2]:=14;
Dat[3]:=13; Dat[4]:=15;
Dat[5]:=15; Dat[6]:=12;
Dat[7]:=16;
m:=0;
for k:=1 to 7 do begin
if Dat[k]>14 then
m:=m+1
end;
write (m)
end.