Миша заполнял таблицу истинности функции F=(x Л-y) V (х = z) V-W, но успел заполнить лишь фрагмент из трёх различных её строк, даже не указав, какому столбцу таблицы соответствует каждая из переменных W, x, y, z. Смотри таблицу. Определите, какому столбцу таблицы соответствует каждая из переменных W, x, y, z.В ответе напишите буквы в том порядке, в котором идут соответствующие им столбцы (сначала буква, соответствующая первому столбцу; затем буква, соответствующая второму столбцу, и т.д.). Буквы в ответе пишите подряд, никаких разделителей между буквами Ставить не нужно.
Var m,fm:real; mc,fmc,i:integer; val:array[1..n] of real; begin for i:=1 to n do begin readln(val[i]); if val[i]>0 then begin inc(fmc); fm+=val[i]; end else if val[i]<0 then begin inc(mc); m+=abs(val[i]); end else begin writeln('Funny joke!(no)'); exit; end; end; writeln('Male average=',m/mc); writeln('Female average=',fm/fmc); end.
1)
program pr;
uses crt;
Var y,x:real;
Begin
Writeln('vvedite x');
readln(x);
y:=(4*x)/(x-1);
Writeln('y=',y:10:3);
readln;
end.
2)
program pr;
Var n,i,a:integer;
Begin
Writeln('введите кол-во цыфр');
readln(n);
for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;
end.
2) использование массива
program pr;
uses crt;
Var n,i:integer;
a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);
Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');
end.