<h2><u>if8 </u></h2>
program raf105;
uses robot;
var l,d,r,u: boolean;
begin
task('if8');
l:= wallfromleft;
d:= wallfromdown;
r:= wallfromright;
u:= wallfromup;
if l
then begin right; paint; right; paint;
if freefromright
then begin right; paint; end
end;
if d
then begin up; paint; up; paint;
if freefromup
then begin up; paint; end
end;
if r
then begin left; paint; left; paint;
if freefromleft
then begin left; paint; end
end;
if u
then begin down; paint; down; paint;
if freefromdown
then begin down; paint; end
end;
end.
<h2><u>if9 </u></h2>
program raf105;
uses robot;
var l,r: boolean;
begin
task('if9');
right; r:= wallfromdown;
left;
left; l:= wallfromup;
right;
if r and l
then begin up; paint; down; down; paint; up; end
else paint;
end.
<h2><u>if10 </u></h2>
program raf105;
uses robot;
var l,r: boolean;
begin
task('if10');
right; r:= cellispainted;
left;
left; l:= cellispainted;
right;
if r or l
then begin up; paint; end
else paint;
end.
Переменная Pascal - это символ, обозначающий какое-то число в алгебраическом выражении.
<u>Таблица приоритетов операций</u>
<span><span><span>1) @, not, ^, +,
- (унарные), new</span></span>
<span><span>2) *, /, div,
mod, and, shl,
shr, as, is</span>
</span><span><span>3) +, - (бинарные), or,
xor
</span></span><span><span>4) =, <>, <, >,
<=, >=, in,
=>
1) * + = or - нарушение, четвертая группа впереди третьей
2) </span></span></span><span>not div or - <u><em>верно</em></u>
3) </span><span>and + div - нарушение, вторая группа после третьей
4) </span><span>xor = * - нарушение, вторая группа после четвертой
5) </span><span><span>> * - нарушение - вторая группа после четвертой</span></span>
C++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian"); // Добавление русского языка
int N;
int *A, *B;
int sub = 0, mult = 1;
cout << "Введите размерность массивов: ";
cin >> N;
A = new int[N];
B = new int[N];
cout << "Инициализация массива A (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> A[i];
}
cout << "Инициализация массива B (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> B[i];
}
// Подсчет суммы и произведения всех элементов массива
for (int i = 0; i < N; i++)
{
sub = sub + A[i] + B[i];
mult = mult*A[i] * B[i];
}
cout << "Сумма всех элементов массивов: " << sub << endl;
cout << "Произведение всех элементов массивов: " << mult << endl;
return 0;
}
Var a,b,s,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
s:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 = 0) then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 4
b = 40
s = 45