Кристина Валентиновна
?>

Догадайтесь , о каких носителях идёт речь . амнкеь, аскстеа акжкин секдиат агубам чевистерн

Информатика

Ответы

kobzev-e
Камень,книжка,
hellomaxim
Касета, книжка, -, бумага, винчестер
Busyashaa
Sub m1()       dim i as integer, m as integer, n as integer       for i = 1 to 10               m = cells(i, 1)               n = cells(i, 2)               if m > n then                       cells(i, 3) = m               else                       cells(i, 3) = n               end if       next i end sub
olg53362928
Как-то условие не понятно. если требуется найти сумму двух чисел, то программа может быть такой: var a1,a2,s: integer; begin a1: =11; a2: =13; repeat a1: =a2; a2: =a2+2; s: =a1+a2; until s> =150; writeln(a1,'+',a2,'=',s); end.результат работы программы: 75+77=152если нужно найти сумму 11+13+15+ по ка не получится > =150, то это можно сделать так: var a,s: integer; begina: =11; s: =0; repeatwrite(a,'+'); s: =s+a; a: =a+2; until s> =150; writeln('=',s); end.результат: 11+13+15+17+19+21+23+25+27+=171

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Догадайтесь , о каких носителях идёт речь . амнкеь, аскстеа акжкин секдиат агубам чевистерн
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Yurevna_Kharkchinov1302
mitin228133770
ВладимировнаИП37
katekn6032
КристинаАлександр
Где ошибка задача в скриншоте
shuxratmaxmedov
Мануэлла
Tatgri
burylin9
AlidzhanovDenis491
timsch12
ltdfoliant62
Gavrilova2527
Viktoriya
Александра-Андрей909