1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Есть три основных типа принтеров: матричный, струйный и лазерный. Я часто распечатываю тексты на лазерном принтере, так как он печатает тише и быстрее, чем другие типы.
#include <stdio.h>
int main () {
double q, t;
int i, n;
printf ("Q, T, N? "); scanf ("%lf %lf %d", &q, &t, &n);
i = 1;
while (i <= n) {
q -= t;
printf ("N = %d, Q = %lf\n", i, q);
i++;
}
return 0;
<span>}</span>
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!