program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Если в паскале
uses crt;
var v:integer;
begin
writeln('Введи свой возвраст');
read(v);
if v>17 writeln('Я с тобой дружу');
else writeln('Я с тобой не дружу');
end.
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419
#include <iostream>
using namespace std;
#define N 10
int main()
{
int array[10] ={1,2,3,4,5,6,7,8,9,10};
int sum=0;
for(unsigned int i=1;i<N;i+=2)
sum+=array[i];
cout<<sum<<endl;
return 0;
}
Раз не указан язык, пусть будут плюсы
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:');
var a:= MatrRandom(n,m);a.Println;
var sumEven:= 0;
var sumOdd := 0;dec(n);dec(m);
for var i:= 0 to n do
if (i+1).isEven then
sumEven:= sumEven + a.Row(i).sum
else
sumOdd := sumOdd + a.Row(i).sum;
Writeln('Cумма на четных строках -> ', sumEven);
Writeln('Cумма на нечетных строках -> ',sumOdd);
end.
<u>Пример:</u>
n, m -> 4 5
Сгенерированная матрица:
62 61 7 15 76
74 84 43 80 4
37 9 40 86 34
45 70 87 30 51
Cумма на четных строках -> 568
Cумма на нечетных строках -> 427