var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.
Ответ:
Объяснение:арточки мистера Фокса У мистера Фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. Карточек, на которых есть животное (хотя бы с одной стороны) — десять, карточек, на которых есть машина (хотя бы с одной стороны) тринадцать, карточек, где на одной стороне машина, а на другой – зверь, 5. Сколько карточек, у которых на обоих сторонах объекты одного
Program n1;
const n=8;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
writeln('эл. с чет номерами: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
1.истиное высказ.2.ложное.3.предложения которое не является выска.4.истинного высказывания со словами "неверное,что".