//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20
Информация-двигатель всего. По этому поводу пара примеров: ученый изобрел некое лекарство от всех болезней на планете. Чтобы сохранить это лекарство, он записывает формулу на носитель. Формула-инфомация. 2 пример: разговариваешь ты с другом. Друг тебе что-то говорит, пусть даже несущественное. То, что друг тебе сказал-информация. как видно, информация окружает нас всегда и везде. Без неё жизнь человека невозможна. Даже если человек просто видит, как летит птица в небе, это тоже информация о её полете и кто же там летит.
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Program test;
const s=45;
begin
writeln(sin(s):0:3);
end.