Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
var k, d, n : integer;
pr : boolean;
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
var i, n : integer;
s : real;
a : array [1..20] of real;
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
writeln(a[i]);
s: =0;
if a[i]> 0 then s: =s+a[i];
writeln('сумма положительных элементов =', s);
1)
высказывание не (не а и b) будет ложным когда высказывание
(не а и b) будет истинным, оно в свою очередь будет истинным когда
будут истинны одновременно высказывание не а и высказывание b
то есть когда а ложное а в истинное
2)
число 376 трехзначное и четное
а=число 376 трехзначное
в=число 376 четное
а и в
или
если сумма цифр числа делится на 3, то число делится на 3
а=сумма цифр числа делится на 3
в=число делится на 3
если а то в
Популярные вопросы