Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
Ответ:
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.
Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
1. 13 сентября 1956г., компанией IBM
2. первый жесткий диск имел емкость 5МБ
3. первый жесткий диск вращался с частотой 1200 об/мин.
4. в 1981г. 1ГБ памяти стоил 300000$, сейчас 1ГБ можно приобрести за 0,025$
5. жесткие диски предназначены для передачи информации через компьютер, ноутбук или ультрабук.
Минимальное возможное количество единиц в столбце значений предложенной функции равно 28.
Пять переменных порождают таблицу истинности, содержащую
строки значений. По условию для каждого из логических выражений a и b получается 4 единицы, следовательно нулей получается 32-4=28.
Функция
- это дизъюнкция значений a, порождающих 4 единицы и инверсии значений b, порождающей 28 единиц. Т.е. меньше 28 единиц быть не может никак.