program zadacha;
var a,b:integer;
begin
writeln('введите число сотен');
readln(a);
b:=a*100;
writeln('введите число десятков');
readln(a);
b:=b+a*10;
writeln('введите число едениц');
readln(a);
b:=b+a;
writeln('полученное число = ',b);
readln;
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
Да может. Так как месяцев всего 12 а человек в классе 15 , следовательно еще 3 человека = 3 месяцам
У сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. Одним з таких є інтернет. Інтернет, напевно, став займати дуже важливе місце в житті кожної людини. Він стосується всього, що має відношення до будь-якої інформації або обміну нею. В інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. Однак далеко не факт, що інтернет дає одну лише користь. До всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.
По-перше, є чисто фізіологічний ризик. Інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. Отже, інтернет змушує тебе сидіти на одному місці і не рухатися. А це загрожує виникненням проблем зі здоров’ям. Тому людина не повинна поринати в інтернет з головою. Потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. В іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.
Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:
var
A: array[1..10] of integer;
k, i: integer;
begin
for i := 1 to 10 do
begin
writeln('Введите числа массива:');
readln(A[i]);
if A[i] > 10
then k := k + 1;
end;
writeln('Количество элементов, больших 10 - ', k);
end.