1) a:=10
b:=5
b:=100+10/5 = 102
a:=102/6*5 =102/6=17*5=85
значение переменной а = 85
2) i s(3)
2 3+2*2=7
3 7+2-3=13
4 13+2*4=21
5 21+2*5=31
s=31
3) program n1;
var a:integer;
begin
write('введите число ');
readln (a);
if a>0 then
a:=a*8;
writeln ('a=', a)
end.
4) program n2;
var y,x:integer;
begin
write('введите число x - ');
readln (x);
if x>0 then
y:=x-2 else
if x<0 then
y:=abs(x) else
y:=0;
writeln ('y=', y)
end.
5) program n3;
var s,i:integer;
begin
write('сумма четных чисел в промежутке от 26 до 88 = ');
s := 0;
for i := 26 to 88 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
Ответ:
#include <iostream>
#include <algorithm>
#include <cmath>
int gcd(int a, int b){
a = std::abs(a);
b = std::abs(b);
while(b > 0){
a %= b;
std::swap(a, b);
}
return a;
}
int main(){
int a, b;
std::cin >> a >> b;
int g = gcd(a, b);
std::cout << g << std::endl;
return 0;
}
Паскаль:
var a,b:integer;
begin
a:=32; b:=108;
while not (a=b) do
if a>b then a:=a-b else b:=b-a;
writeln(b);
end.
Результат:
4
Я на уроке информатики научилась правильно использовать компьютер и быстро находить ответ по своему запросу. Я теперь знаю как собрать компьютер из его частей и знаю как эти части называются.
Информатика очень интересный предмет.
Begin
writeln('Вася');
writeln(' ':4,'пошёл');
writeln(' ':9,'гулять');
writeln;
writeln(' Ж');
writeln(' ЖЖЖ');
writeln(' ЖЖЖЖЖ');
writeln('ЖЖЖЖЖЖЖ');
writeln(' HH HH');
writeln(' ZZZZZ');
end.
