Ответ:
1. А)
2. //Нету вопроса
3. Б) //Var - служебное слово и не может выступать в качестве переменной.
4. Б) //If М>N then writeln(M-N) else writeln(N-M); Данная конструкция выводит результат написанный в скобках.
5. Б) //Имеет структуру IF, THEN, ELSE
6. // не имею понятия о порядке действий в метро
7. Б) //f : = 5 ;
d : = 7 ;
if f >= d then x : = f
else x : = d...Если 5>=7 тогда x=5, иначе x=7
8. //Нету блок схемы
9. //Затрудняюсь ответить, В И Б - по сути оба недопустимы...но в условии сказано про один вариант, не буду рисковать.
10.) var
n: integer;
begin
n := 12;
if n<0 then
n := n*n*n;
else
n := n*3
end. // Под переменной n, можешь взять любое число
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
//GNU C++ 11
#include <iostream>
using namespace std;
void while3 (int n, int k, int &quit, int &modul)
{ //quit - частное, modul - остаток
quit=0; modul=0;
while (n>=k) {quit++; n-=k;}
modul=n;
}
int while9 (int n)
{
int k=1;
while (3*k<n) k++;
return k;
}
int sum (int n){if (n==1) return 1; else return n+sum(n-1);}
//немного рекурсии
void while11 (int n, int &k, int &s)
{
k=1; s=1;
while (sum(k)<n) k++;
s=sum(k);
}
int main ()
{
//пиши функцию, задавай параметры
return 0;
}
var
a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);
if a>b then
writeln ('Первое число больше , то есть',a, ')
else
writeln ('Второе число больше , то есть',b, ');
end.
