PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
Держи . Напишите минимум 20 символов. Напишите минимум 20 символов.<span> Напишите минимум 20 символов</span>
#include <cstdio>
using namespace std;
class Clock
{
int h, m, s;
int isPM(int hour) {
if ( (hour > 12) && (hour < 24) )
return 1;
else
return 0;
}
public:
Clock() : h(0), m(0), s(0) {}
void setTime(int ph, int pm, int ps) {
try {
if ( !( (ph < 0) || (ph > 23) ) )
h = ph;
else
throw "Неверный час";
if ( !( (pm < 0) || (pm > 59) ) )
m = pm;
else
throw "Неверные минуты";
if ( !( (ps < 0) || (ps > 59) ) )
s = ps;
else
throw "Неверные секунды";
} catch (const char* e) {
printf("Ошибка: %s", e);
}
}
Clock(int ph, int pm, int ps) {
setTime(ph, pm, ps);
}
int hour() { return h; }
int min() { return m; }
int sec() { return s; }
void print1() {
printf("%d часов %d минут %d секунд\n", h, m, s);
}
void print2() {
char a_p;
int ph;
if (isPM(h)) {
a_p = 'p';
ph = h - 12;
} else {
a_p = 'a';
ph = h;
}
printf("%d %c. m. %d минут %d секунд\n", ph, a_p, m, s);
}
};
/* Проверка некоторых функций */
int main()
{
Clock clock1(23, 11, 07), clock2;
clock1.print2();
clock2.print1();
return 0;
}
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var i:=1;
var k:=0;
while k<>55 do begin Print(i); i+=2; k+=1 end
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109