Задать вопрос!

Задать вопрос!

Все категории

Зося Яковлева

4 года назад

7

Помогите пожалуста по информатике 5

Помогите пожалуста по информатике 5

Информатика

1 ответ:

Ольга-1234564 года назад

0 0

Использовал оперативную память

Читайте также

Среди всех трехзначных чисел найти количество чисел с суммой цифр четна и одинаковыми являются первая и последняя цифры. вывести

Tereso77 [7]

Программа на Паскале прилагается.

0 0

4 года назад

Помогите пожалуйста , компьютер выдаёт ошибку : "ожидалось имя типа" не могу понять,вот что я сделала : program simvol; var A:ar

Tori1999

Программа должна выглядеть вот так:

program simvol;

const

n=5;

var

A:array[1..n,1 ..n]of integer;

i, j:integer;

Begin;

for i:=1 to n do

begin

for j:=1 to n do

begin

(A[i,j]):=random(100);

write(A[i,j]:4);

end;

writeln;

end;

end.

Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.

0 0

4 года назад

Помогите!Пешеходу нужно было пройти 27 км.Первые 3 ч он двигался со скоростью 5км/ч ,а оставшуюся часть пути- со скоростью 4км/ч

Алёна Володина

3×5=15 км
27-15=12км
12÷4=3ч
3ч+3ч=6часов

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу, которая позволяет получить из слова «информатика» слова «формат» и «нота» путем удаления символов

JackBlack1

Const
s='информатика';
var
s1:string;
begin
s1:=s; Delete(s1,1,2); Delete(s1,7,3);
Writeln(s1);
s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
Writeln(s1)
end.

0 0

4 года назад

Прочитать ещё 2 ответа

1. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по

Сергей36-666

1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.

2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.

0 0

4 года назад