1)
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2)
var x:longint;
begin
readln(x);
if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);
end.
3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.
var a:array[1..50] of integer;
var i:integer;
begin
for i:=1 to 50 do a[i]:=i;
for i:=1 to 50 do writeln(a[i]);
end.
1) тапсырма:
Болады: дұрыс отыруға, тік отыруға, тінтуірді дұрыс ұстауға, монитордан көзді белгілі бір мөлшерде алшақ ұстауға.
Болмайды: тамақтануға, қисық отыруға, сусындар ішуге, мониторға көзді тым жақын ұстауға.
2- тапсырма:
1-буын 1946-1954ж
2-буын 1955-1964ж
3-буын 1965-1974ж
4-буын 1975жылдан бүгінге дейін.
3-тапсырма:
Сымсыз дербес желі. 50-100м радиуста. Wi-Fi
Сымсыз желінің ең кең тараған түрі. 100 м. дейін. Bluetooth
Алыс қашықтықтағы əртүрлі құрылғыларға сымсыз байланыс беретін əмбебап технология. 60км. WIMAX
Объяснение:
Найти наибольшее из трёх чисел