что понимать под "переводом программы"
Объяснение:
Program mas_3 ; // название программы mas_3
var s, i: integer; // объявление целочисленных переменных s и i
a: array[1..10] of integer; // объявление целочисленного одномерного массива a размером 10
begin // начало программы
randomize; // инициализация генератора случайных чисел
for i:=1 to 10 do a[i]:=random(100); // заполнение массива a случайными числами в диапазоне от 0 до 99
for i:=1 to 10 do write (a[i],' '); // вывод на экран элементов массива через пробел
s:=0; // присвоение переменной s значения 0
for i:=1 to 10 do // цикл для переменной i от 1 до 10
if (a[i]>10) and (a[i]<30) then s:=s+a[i]; // если значение элемента массива a больше 10 и меньше 30, то к переменной s прибавляем это значение
write('s=', s) // вывод на экран значения s
end. // конец программы
Жаңбырлы,найзағай күндері темір дің қасына жоламаныз,қолшатыр ұстап жүрменіз.Себебі найзағай сол темірге қарай ұрады.
Республиканың климат ерекшеліктеріне байланысты жазда аңызақ желдер жиі болады.Аңызақ желдер егістіктерге зиянын тигізеді,күшті дауылдар тұрғын үйлерді,байланыс жүйелерін,жолдарды қиратуы мүмкін.Ғарыштық метеорологиялық зерттеулер арқылы аңызақ желдер алдын – ала болжанады.Табиғаттағы апат құбылыстарын алдын алу үшін тұрғын үйлерді апатқа төтеп беретіндей етіп салу,елді мекендерді орналастыруда табиғат ерекшелігін ескерудің маңызы зор.
Табиғаттың қаһарлы құбылысы – жер сілкіну – жалпы геофизикалық себертерден болатын жер қыртысындағы, оның астыңғы қабаттарындағы дүмпу (соққы, қимыл) және жер бетіндегі діріл, тербеліс. Бұның бәрі былай өрістейді. Жер қайнауында әрдайым күрделі процестер орын алуда.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст:');
var c:=ReadlnChar('Введите букву для вставки');
var s1:='';
for var i:=1 to s.Length do begin
s1+=s[i];
if s[i]<>' 'then s1+=c
end;
Writeln(s1)
end.
Пример
Введите текст: Привет паскалю!
Введите букву для вставки Ы
ПЫрЫиЫвЫеЫтЫ пЫаЫсЫкЫаЫлЫюЫ!Ы