Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Ответ:
34
Объяснение:
Нужно найти наибольшее число, меньшее 38 и делящееся на 17 (т.к. оба условия в скобках не должны выполняться). Это число 34.
вот программа ее можно обернуть функцию тогда будет более функционально а так тут просто цикл и работа со строками я тебе два варианта дал сам выберишь какой лучше
Язык Pascal. С учетом високосных годов.
var
age, days: integer;
begin
writeln('Введите возраст человека в годах');
readln(age);
days:= age * 365 + (age div 4);
writeln('Количество прожитых дней: ', days);
end.
А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
Sub Макрос1()
'
' Макрос1 Макрос
'
'
s = 0
MsgBox "Выбраны ячейки: " & ActiveWindow.RangeSelection.Address
For n = 1 To Selection.Rows.Count
s = s + Selection.Cells(n, n)
Next n
MsgBox "сумма диагональных элементов: " & s
<span>End Sub
На самом листе Excel заводим кнопку CommandButton1 и даем название кнопке "Подсчет"
Набираем процедуру CommandButton1_Click
</span>Private Sub CommandButton1_Click()
Макрос1
<span>End Sub
</span>
После выделения диапазона ячеек мышью нажимаем кнопку "Подсчет" и получаем результат.
Решение в прикрепленном файле.